загрузка TWebBrowser в потоке

[xrob]

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

но возникает проблема...
пытался запустить первый раз:
ссылка 'ya.ru', выдает ошибку



а потом сообщение, мол, типа "операция прервана пользователем"
в итоге закончилось перезагрузкой компа =(


пытаюсь снова:
ссылка 'http://ya.ru', выдает ту же ошибку,
но на этот раз загружает страницу и больше не стонет...


Кто-нибудь знает, почему происходит такая хрень,
и что можно сделать?

текст программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  SHDocVw;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

TTR = class(TThread)
procedure Execute; override;
end;


var
Form1: TForm1;
WEB:TWebBrowser;
TR:TTR;

implementation  {$R *.dfm}

procedure TTR.Execute;
begin
WEB.Navigate('http://ya.ru');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// создать браузер
WEB:=TWebBrowser.Create(Form1);
// создать запущеный поток
TR:=TTR.Create(false);
end;

end.

[Пепел Феникса]

TWebBrowser сам делает все что может в потоке в потоке.

[xrob]

оу, правда?
а почему тогда прога тормозит?...

[SKS]

Если верно понимаю, то вам нужно чтобы браузер отобразил страницу без запроса, то есть чтобы запустив программу страница уже отображалась.
Я вот так делаю:

procedure TForm3.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('http://site.ru/index.html');
end;

Это кидаю просто на форму

[Stilet]

и что можно сделать?

Я бы пожалуй IE обновил... Если он на перезагруз тянет, то это уже лечить нужно.