Problemas para realizar una curp necesito algo de ayuda

[ecfisa]

Hola madrid_cr7.

Necesito que sea con FOR o con While porque solo eso me permiten usar...

Entonces, no veo el problema... Mirá con atención el código que te puse más arriba:

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

Si te referis a que no te permiten usar una función, incorporá a tu código la porción de la función correspondiente a la extracción de la primera
vocal a partir de la segunda letra.

En tu caso basta con reemplazar Cad[i] por Edit1.Text[i] (que es donde está el apellido) y al salir del ciclo while, tendrás la vocal buscada en Edit1.Text[i] ...

Edito: Veo que la variable 'i' está declarada en tu procedimiento, función o cuerpo de programa. Por lo que supongo que deberías usar otra como contador del while.

Un saludo.