Problemas para realizar una curp necesito algo de ayuda

[[oscarac]]

hice esto rapidamente

la idea es que despues de digitar el apellido en el edit presiono un boton y me sale el label con la primera letra y la primera vocal

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
_PrimeraLetra, _PrimeraVocal, _Letra, _Linea :string;

begin
  _PrimeraLetra := '';
  _PrimeraVocal := '';
  _Linea := Edit1.Text;
  _primeraLetra := Copy(_Linea,1,1);
  For i := 2 to Length(_linea) do
  Begin
    _Letra := Copy(edit1.Text, i,1);
    if (_letra = 'A') or (_letra = 'E') or (_letra ='I') or (_Letra = 'O') or (_letra = 'U') then
       Begin
       _PrimeraVocal := _Letra;
       Break;
       End;
  End;
  Label1.Caption := _PrimeraLetra + _PrimeraVocal;
end;

fijate si te es de utilidad