[vtdeleon]

Empezado por jhonny

El problema con el codigo de vtdeleon es que no sería valido el siguiente:

jhonny.yonny@clubdelphi.com

"tenes razón chamo, tenes razón"
Y que tal esto?

Código Delphi [-]
var
 M,N:Integer;
 SubCadena:String;
begin
 M:=Pos(Edit1.Text, '@');
 SubCadena=Copy(Edit1.Text,M,Length(Edit1.Text));
 N:=Pos(SubCadena, '.')
if (M> 1) then
  if (N>2) then//tambien podría ponerse Legth para saber la cantidad de caracteres 
                         //y que este sea mayor que la posición del punto (.)
  begin
    //Hago lo que tenga que hacer... 
  end;

Lo de ">2" o ">1" lo pongo porque me da la impresión (y puedo estar equivocado) de que hay muy pocos o ningún correo que sea "x@x.com", ya eso depende de quien lo quiera usar así o como jhonny "<>0".