Ich weis net ob ich zu blöd dafür bin aber ich wolt das ausprobiren und es kommt die meldung:
[Fehler] Unit1.pas(43): Undefinierter Bezeichner: 'IdHTTP1Work'
Delphi-Quellcode:
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
Progress.Max:=AWorkCountMax;
Progress.Position := AWorkCount;
end;