[krasnyakjohn]

Да.. сложно поверить, но это так.

Если из обработчика удалить этот код:

Код:

WebBrowser1.Navigate('http://web.iqsms.ru/contacts/');
  while WebBrowser1.ReadyState<>4 do
  Application.ProcessMessages;
  Doc := WebBrowser1.Document as IHTMLDocument2;  // получили hmtl код страницы
  r := TRegExpr.Create;
  s:=Doc.body.innerHTML;
  r.InputString :=s; // во входяшую строку положили весь html код
  memo3.Text:=s;
try
  r.Expression :='<A href="/deliveries/add-delivery/">(.*?)</A>';
  if r.Exec(s) then
begin
    Groupbox8.Caption:='Отправить смс заказчику';
end
  else ShowMessage('Авторизация не прошла');
    finally
r.Free;
end;
end;

То происходит заполнение полей и нажимается кнопка входа. (Я это в webbrowser'е вижу, т.е происходит авторизация, а когда добавляю этот код, то не происходит и пишет "Авторизация не прошла")