Problemas para realizar una curp necesito algo de ayuda

[ecfisa]

Hola madrid_cr7.

Debo reconocer que no estoy menos desorientado que oscarac con la explicación...

Pero si me atengo 'literalmente' a tu pedido:

si pero la primera vocal a partir de la segunda letra del apelldo

Debería ser:

Código Delphi [-]
function DameLaSegundaVocal(Cad: string): char;
var
  i: Integer;
begin
  i:= 2;
  while not (UpCase(Cad[i]) in ['A','E','I','O','U']) do Inc(i);
  Result:= Cad[i];
end;

Llamada de ejemplo:

Código Delphi [-]
   Edit1.Text:= 'Albeniz';
   ShowMessage(DameLaSegundaVocal(Edit1.Text)); //  letra 'e'

Un saludo.