Загрузка html-странички в потоке

[Shouldercannon]

Доброго времени суток!
Как правильно загрузить html-страничку в WebBrowser в потоке
Данный пример явно некорректный

unit Unit1;

...

type
  TWeb_Thread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  Form1: TForm1;
  Web_Thread: TWeb_Thread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Web_Thread := TWeb_Thread.Create(True);
  Web_Thread.FreeOnTerminate := True;
  Web_Thread.Resume;
end;

procedure TWeb_Thread.Execute;
begin
  Form1.WebBrowser1.Navigate('http://localhost/sic/request.htm'); или Form1.WebBrowser1.Refresh; // Нельзя так делать
  Synchronize(SyncProc);
  Terminate;
end;

procedure TWeb_Thread.SyncProc;
begin
  //!//
end;

end.

Form1.WebBrowser1.Refresh;

100% делать только в процедуре синхронизации иначе ошибки неизбежны

[Shouldercannon]

Столкнулся с другой проблемой.

type
  TLogin_Thread = class(TThread)
  private
    { Private declarations }
    Mode: Integer;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  Form2: TForm2;
  Login_Thread: TLogin_Thread;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://localhost/sic/request.htm');
end;

procedure TForm2.MyProc(Mode: Integer);
begin
  Login_Thread := TLogin_Thread.Create(True);
  Login_Thread.Mode := Mode;
  Login_Thread.FreeOnTerminate := True;
  Login_Thread.Resume;
end;

procedure TLogin_Thread.Execute;
begin
  Synchronize(SyncProc);
  Terminate;
end;

procedure TLogin_Thread.SyncProc;
begin
  case Mode of
  0: begin
    Form2.ClientHeight := 100;
    Form2.ClientWidth := 200;
    Form2.Memo1.Visible := True;
    Form2.WebBrowser1.Visible := False;
    Form2.Memo1.Text := '478957893475347583475893475';
  end;
  1: begin
    Form2.ClientHeight := 200;
    Form2.ClientWidth := 500;
    Form2.Memo1.Visible := False;
    Form2.WebBrowser1.Visible := True;
    Form2.WebBrowser1.Refresh;
  end;
  end;

  Form2.Position := poScreenCenter;
  Form2.WindowState := wsNormal;
  Form2.Show;
end;

При первом показе Form2 в WebBrowser есть данные, при втором уже ничего нет, а при третьем ошибка и компилятор указывает на

Form2.Position := poScreenCenter;

Что не так делаю?

[Stilet]

Нельзя так делать

Не понял, почему нельзя?
Какие ошибки?

[Shouldercannon]

На сколько я знаю, в теле потока нельзя напрямую обращаться к контролам формы только через синхронизацию иначе могут быть непредвиденные последствия.

[Stilet]

Можно. Если осторожно. Если к контролам не будет обращаться несколько потоков то ниче не случится. Там не в том костыли.