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