[Geref]

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

Делай после приращения Update.

Код:

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 progressbar1.Position:= AWorkCount;         // работает
 form2.progressbar1.Position:= AWorkCount;   //не работает
 form2.ProgressBar1.Update;
 form2.Update;
 application.ProcessMessages;
end;

Вы имели ввиду так? (не помогло) )