ayuda!! soy nueva en esto!

[ecfisa]

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:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
   ShowMessage(NombreEmail(Edit1.Text));
end;

En OnClick de un TButton:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:= NombreEmail(Edit1.Text); 
end;

Saludos.