Hola de nuevo camivy.
El código tendrías que ponerlo una vez que finalices el ingreso en el Edit.
Es decir que podés ponerlo en el evento OnExit del Edit o si preferís asignarlo al evento OnClick de algún TButton.
Te doy ejemplos:
En el evento OnExit del TEdit:
Código:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
ShowMessage(NombreEmail(Edit1.Text));
end;
En OnClick de un TButton:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= NombreEmail(Edit1.Text);
end;
Saludos.