[FideRosado]

esto s para que cambien entre el nombre del correo u el correo solamente

Código Delphi [-]
function ClearMailDomain( mail:string; vindex:integer ):string;
var
os:integer;
df,kj:string;
begin
    os := CharCount( mail , '<');

     if os = 0 then begin
      result:=mail;
     end;

     if os = 1 then begin
        kj:= GetToken( mail , '<', vindex );
        df:= CambiaEn( kj , '>' , '' );
        result:= df;
     end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( ClearMailDomain( 'nombre del usuario ',2) );
end;

aca el numero elije a quien te entrega..(1, 2)