Fehlerhafte Progress anzeige

[XXcD]

Hallo,
ich lade per Tidhttp Komponente Dateien aus dem Internet,
den Fortschritt lass ich mir mit einer Progressbar anzeigen.
Bei ca. 20 MB springt die Prgressbar einfach auf 0 und fängt erst bei den letzten MB von vorne an.
Ich nutze die TAdvProgressBar und folgenden code:

Delphi-Quellcode:

procedure TForm6.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
Progress.Position := AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;

Vielleicht ist dieser fehler ja schon bekannt und mir kann einer weiterhelfen.