THTMLViewer OnProgress-Bug?

[a.def]

Ich benutze seit Längerem die THTMLViewer-Komponente und seit Kurzem auch das OnProgress-Event mit einer ProgressBar.

Delphi-Quellcode:

procedure TForm4.HtmlViewer1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Integer);
begin
 Caption := IntToStr(PercentDone); // Test

 ProgressBar1.Position := PercentDone;
 Application.ProcessMessages;
end;

Das Problem ist, dass bei größeren einzulesenen Dateien die Progressbar erst bis 30% anläuft, dann geht PercentDone bis etwa 30% oder 35% ins Minus und dann läuft die ProgressBar bis zum Ende weiter. Kennt den Bug jemand und wenn ja wie kann man den beheben?