1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function IsEMail(EMail: String): Boolean;
var
  s    : String;
  ETpos: Integer;
begin
  ETpos:= pos('@', EMail);
  if ETpos > 1 then
  begin
    s:= copy(EMail,ETpos+1,Length(EMail));
    if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
      Result:= true else Result:= false;
  end
  else
    Result:= false;
end;