ошибка webbrowser

[nenoob1]

Здравствуйте форумчане. Создаю поток, туда засовываю webbrowser, и частенько вылетает ошибка access violation at...module 'mshtml.dll'. Вылетает когда нажму у примеру 2 раза, чтобы загрузить страницу, вылетает при использовании:
form1.label1.Caption:=form1.webbrow ser1.OleObject.document.title;
Код:

PHP код:

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

  tTESTthread=class(tthread)  
  protected
    procedure execute; override;
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
tTESTthread.Create(false);
end;

procedure tTESTthread.Execute;
begin
form1.webbrowser1.Navigate('http://yandex.ru');
sleep(5000);
form1.label1.Caption:=form1.webbrowser1.OleObject.document.title;
end; 


Кто чем может помогите, буду очень благодарен!

[r9m]

А зачем ты жмёшь 2 раза подряд? Получается, что один объект ещё не отработал а ты создаёшь ещё один

[nenoob1]

r9m это я к примеру...
Все равно при использовании:
form1.label1.Caption:=form1.webbrow ser1.OleObject.document.title;
выскакивает ошибка.

p.s. проблема актуальна как никогда!

[Виталий Желтяков]

Скорее всего, страница не успевает загружаться. Я лично для подобных действий использовать переменную-триггер и onDocumentComplite

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

а кто вам вообще подобный бред предложил?
попробуйте напоить 10 человек из одной чашки одновременно.
у каждого потока должен быть свой объект тогда

[Квэнди]

Здравствуйте форумчане. Создаю поток, туда засовываю webbrowser

Сначала читайте тщательно теорию многопоточного программирования. Рановато вы взялись за один из самых сложных аспектов программирования.