Yo podrí poner vtdeleon.@ y sería válido
Me guiaré del código de jhonny (porque me da pereza leer el de mas arriba)
Código Delphi
[-]
var
M,N:Integer;
begin
M:=Pos(Edit1.Text, '@');
N:=Pos(Edit1.Text, '.')
if (M> 1) then
if (N+2 > M) then begin
end;
Saludos