function IsValidEmail(const Value: string): boolean;

 function CheckAllowed(const s: string): boolean;

 var

  i: integer;

 begin

  Result:= false;

  for i:= 1 to Length(s) do

  begin

  { недопустимый символ в s - значит недопустимый адрес }

  if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then

  Exit;

  end;

  Result:= true;

 end;

var

 i: integer;

 namePart, serverPart: string;

begin // начало выполнения IsValidEmail

 Result:= false;

 i:= Pos('@', Value);

 if i = 0 then

  Exit;

 namePart:= Copy(Value, 1, i - 1);

 serverPart:= Copy(Value, i + 1, Length(Value));

 // @ не указано имя имя или сервер не указаны; минимально для сервера. "a.com"

 if (Length(namePart) = 0) or ((Length(serverPart) < 1)) then

  Exit;

 i:= Pos('.', serverPart);

 // должно иметь точку и как минимум два знака от конца

 if (i = 0) or (i > (Length(serverPart) - 1)) then

  Exit;

 Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);

end;