Recortar String

[MaMu]

Tengo un string asi:

Código Delphi [-]
MiString:='usuario@dominio.com (Pepe Perez)';

Yo lo que quiciera hacer, es quitar lo que está entre paréntesis y quedarme con la dirección de email. Como podría hacerlo?

Código Delphi [-]
 
function CutEmail(emailtag:string)string;
begin
 
end;

Saludos

[[eduarcol]]

Si se cumple siempre la regla del ejemplo:

Código Delphi [-]
function CutEmail(emailtag:string)string;
begin
    Result := Trim(Copy(emailtag, 1, Pos('(', emailtag) - 1));
end;

[MaMu]

SOLUCIONADO

Muchas gracias eduarcol. La regla se cumple siempre.