TWebBrowser |Интеграция с Internet Explorer |

Здравствуйте!

Толи я чего не понимаю, толи чудеса какие то :(
В общем написал программку которая раз в час опрашивает страницу статистики посещения.
Естественно каждый раз открывать ИЕ смысла нет - легче в трей ее подвесить.

Всё заработало... всё здорово! НО не у всех обновляется страница (примерно у 10% не обновляется).

Т.е. первый запуск - страничка загрузилась, повторный опрос - берется (видимо) из кеша (!?).

Прочитал массу всего, но понять все равно не могу, в код уже внес цать проверок - а всё тоже. Почему то на некоторых машинах не работает.

Но что совсем странно - если передать фокус окну WebBrowser1 и нажать F5 - она обновляется!

Что не так? На стороне клиента или всё таки можно как то программно решить проблему обновления?

procedure TForm1.Button1Click(Sender: TObject);
var
  URL,Flags,
  TargetFrameName,
  PostData, Headers: OleVariant;

begin
  //проверяем, что второй раз запускаем
  if (StrToInt(lL.Caption) <> 0) then
  begin
    //1 попытка заставить обновиться
    WebBrowser1.Offline:=True;
    Application.ProcessMessages;
    WebBrowser1.Offline:=False;
    Application.ProcessMessages;
    //1 end

    Flags := REFRESH_NORMAL;
    WebBrowser1.Refresh2(Flags);
    Application.ProcessMessages;
  end;

  //2 попытка заставить обновиться
  URL:='about:blank';
  Flags:=navNoReadFromCache;
  TargetFrameName:=EmptyParam;
  Headers:=EmptyParam;
  PostData:=EmptyParam;
  WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  //2 end

  //ждем
  while not (WebBrowser1.ReadyState = READYSTATE_COMPLETE) do
  begin
    Application.ProcessMessages;
  end;

  //вводим то что нам нужно
  URL:='http://192.168.2.1/count.pl';
  Flags:=navNoReadFromCache;
  TargetFrameName:=EmptyParam;
  Headers:=EmptyParam;
  PostData:=EmptyParam;
  WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  //так у некоторых не работало...
  //WebBrowser1.Navigate('http://192.168.2.1/count.pl');

  //ждем
  while not (WebBrowser1.ReadyState = READYSTATE_COMPLETE) do
  begin
    Application.ProcessMessages;
  end;

  //обработка....