Recortar String
 

Tengo un string asi:

Código Delphi [-]
MiString:='[email protected] (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

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;

SOLUCIONADO

Muchas gracias eduarcol. La regla se cumple siempre.