[sashgera]

Здравствуйте
мне нужна валидация imap-сервера, например, imap.rambler.ru, imap.gmail.com и тд.
в JS это регулярное выражение работает, в Delphi нет
/(^imap\.[a-z]+\.[a-z]+$)/

Код:

  regex := TRegEx.Create('(^imap\.[a-z]+\.[a-z]+$)');
  if regex.IsMatch(read_txt.Strings[6]) then
    ExitProcess(0)
  else
    Memo1.Lines.Add('imap-сервер:    valid');

пожалуйста, помогите