try
        Wbbr.Navigate(UrlSearch, Flags, TargetFrameName, PostData, Headers);
          repeat
            Application.ProcessMessages; (*видимо тут грузит проц до 50%*)
          until Wbbr.ReadyState >= READYSTATE_COMPLETE;
          if Wbbr.Document <> nil then
          HtmlCodeData := AnsiLowerCase(
          (Wbbr.Document as iHTMLDocument2).body.innerhtml);
          Application.ProcessMessages; (*тут вроде бы и не надо?*)
      except
          CodeSite.EnterMethod( Self, 'Timer' );
          CodeSite.SendError('TWebBrowser failed'); (*бравузер здох*)
          CodeSite.ExitMethod( Self, 'Timer' );
      end;