AccessVolation при синхронизации потоков

[hiho]

Здравствуйте. Кто может подсказать почему этот код иногда вылетает с ошибкой AccessVolation?

procedure TRegThread.Error;
begin
  fmMain.sButErr.Caption := 'Ошибка соединения';
end;

. . .

procedure TRegThread.Execute;
var
  IdHTTP  : TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create();
  try
    IdHTTP.Get('*****');
  except
    Synchronize(Error);
  end;
  IdHTTP.Free;
end;

Причем ошибка возникает именно на этапе синхронизации

[xoodoo]

вылетает с ошибкой AccessVolation

Привыкай вникать в смысл полного текста сообщения (об исключении в данном случае), а не только в ту его часть где попадаются знакомые тебе буквы.

Там дальше идет самое важное - at address XXXXXXXX.
Вот этот самый XXXXXXXX, будучи подставленным в Search -> Find Error .., вполне может быстро прояснить источник проблемы.

[Stilet]

Причем ошибка возникает именно на этапе синхронизации

Видимо fmMain еще не успела создаться.