WebBrowser.Navigate в дополнительном потоке

[Crystallon]

Пытаюсь загрузить веб-страницу в дополнительном потоке, но никаких признаков жизни от программы не получаю(по завершению загрузки страницы она должна сделать определенные действия, но этого не происходит и даже HTTP Analyzer молчит), если гружу страницу в основном потоке все нормально...
procedure TNewThread.Execute;
begin
FMain.WebBrowser1.Navigate(TWeb1);
end;

Можно ли с этой проблемкой что-то сделать? Или WebBrowser.Navigate вообще не работает в дополнительном потоке?

[Gambler]

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

[Crystallon]

Сообщение от Gambler

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

Не могли бы вы подкрепить слова кодом?=) А то что-то не совсем пойму, вроде бы синхронизация нужна чтобы 2 потока не делали одновременно каких-либо действий, но ведь у меня такого итак не может произойти...

[Gambler]

Вообще попробовал так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TNewThread.Execute;
const
count = 5;
URL : array [1..count] of string =
('www.google.com','www.yandex.ru','vkontakte.ru','www.xakep.ru','www.bash.org.ru');
var i: integer;
begin
i:=1;
while true do
begin
  Form1.WebBrowser1.Navigate('http://'+URL[i]);
  inc(i);
  if i>count then i:=1;
  sleep(5000);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Th: TNewThread;
begin
th:=TNewThread.Create(false);
th.Resume;
end;

end.

и все прекрасно работало. Но если очень хочется синхронизировать потоки - переделаем. Обычно все действия с объектами другого потока (в данном случае форма и браузер) выносят в отдельный метод, который вызывается в режиме синхронизации.
Вот пример

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TNewThread = class(TThread)
  adr: string;
  private
    { Private declarations }
  protected
    procedure OpenURL;
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TNewThread.OpenURL;
begin
  Form1.WebBrowser1.Navigate('http://'+adr);
end;

procedure TNewThread.Execute;
const
count = 5;
URL : array [1..count] of string =
('www.google.com','www.yandex.ru','vkontakte.ru','www.xakep.ru','www.bash.org.ru');
var i: integer;
begin
i:=1;
while true do
begin
  adr:=URL[i];
  Synchronize(OpenURL);
  inc(i);
  if i>count then i:=1;
  sleep(5000);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Th: TNewThread;
begin
th:=TNewThread.Create(false);
th.Resume;
end;

end.