TWebBrowser в потоке

[tronuo]

В общем. Я хочу обрабатывать TWebBrowser в потоке. Вот код.

procedure TForm1.Button1Click(Sender: TObject);
 var Potok1: Potok;
begin
 Potok1:=Potok.Create(true);
 Potok1.FreeOnTerminate:=True;
 Potok1.Priority:=tpNormal;
 Potok1.Resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.WebBrowser1.Navigate('http://site.ru');
end;

procedure Potok.Execute;
begin
  { Place thread code here }
  ShowMessage('f');
  ShowMessage(IntToStr(Form1.WebBrowser1.OleObject.Document.all.length));
end;

Первое сообщение выводится. Второе нет. Хотя не в потоке, он мне выводит. В чем ошибка?
Заранее спасибо.

[eval]

ошибка в том что в потоке, так нельзя

[Stilet]

Первое сообщение выводится. Второе нет.

Э-э-э, а зачем только это в поток засовывать?
И потом этот код нужно в потоке выполнять в методе, который вызывается через synchronize()