Hola de nuevo!
El ejemplo que te paso no hace lo que pides... pero puede que te de una pista:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
const
VOCALES = 'AEIOU'; CONSONANTES = 'BCDFGHJKLMNÑPQRSTVWXYZ'; var i, grupo, posic: integer;
resultado: string;
begin
resultado := '';
for i :=1 to Length(Edit1.Text) do
begin
posic := Pos(Edit1.Text[i],VOCALES);
IF Posic > 0 then grupo := 1
else grupo := 2; resultado := resultado + IntTostr(grupo);
end;
ShowMessage(resultado);
end;
Saludos,