[[Delphius]]

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'; //grupo 1
  CONSONANTES = 'BCDFGHJKLMNÑPQRSTVWXYZ';  // grupo 2
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 // se encontró la subcadena dentro de vocales
        then grupo := 1
        else grupo := 2;  // son grupos excluyentes... por tanto
        // si no está en vocales... va a estar en consonantes
// damos por supuesto que no se ingresan caracteres "raros"
     resultado := resultado + IntTostr(grupo);
   end;
   ShowMessage(resultado);
end;

Saludos,