Problemas para realizar una curp necesito algo de ayuda

[madrid_cr7]

Pues ya me desespere y acudo a ustedes para ver que se soluciona les pongo el codigo y despues lo que sale mal.

var
a,c,d:string;
b,I:integer;
begin
a:=copy(edit1.Text,1,1);
b:=length(edit1.Text);
For I:= 2 to b do
begin
c:=copy(edit1.Text,I,1);
if c='A' then
begin
d:='A';
b:=I;
end;

if c='E' then
begin
d:='E';
b:=I;
end;

if c='I' then
begin
d:='I';
b:=I;
end;

if c='O' then
begin
d:='O';
b:=I;
end;

if c='U' then
begin
d:='U';
b:=I;
end;
end;
edit9.Text:=concat(a,d);
end;

Bueno lo que quiero es copiar la primer vocal del apellido paterno que es el edit1.text pero me copia la ultima vocal. si pongo ALVARADO me pone AO que seria la primera letra del apellido y la primer vocal del apellido sin contar la primer letra pero en vez de eso me pone la ultima vocal.

otras dudas.
si para cerrar el bucle FOR pongo I:=b; me sale error y me dice "Assignment to FOR-Loop variable 'I'" por eso b:=I; pero al parecer no me lo cierra y se va hasta el final y por me copia la ultima vocal.