Como separar consoantes de vogais no Delphi?

Boa noite a todos!!!!

Estou começando a desenvolver um programa de numerologia e preciso de uma função que separe as vogais das consoantes e q depois atribua valores numericos a cada letra

tipo:

Desde já agradeço a atenção de todos!!!!