Hola!
Inspirado en el código de Egostar realize una función que tiene un poco más de control:
Código Delphi
[-]function ValidateEMail(EMail: string): boolean;
var PosA, PosP
begin
PosA := Pos('@',EMail);
PosP := Pos('.',EMail);
result := (PosP > PosA) and (PosA <> 0)
end;
Saludos,