ProgressBar unnötig animiert

[MacGuyver]

Moin Leute

Ich arbeite mit XE8 und wunder mich, wieso mein ProgressBar nicht bis zum Ende läuft. Ich blende ihn ein und dann wieder aus. Er läuft teilweise nur bis 20% voll. Wenn die Aktion insgesamt länger dauert, füllt er sich auch weiter voll. Die 100% erreicht er NIE. Nach ein paar Tests habe ich den Grund gefunden:

Delphi-Quellcode:

  ProgressBar.Max := TotalFileSize;
  ProgressBar.Position := 0;
  ShowProgressBar;
  Application.ProcessMessages;
  ProgressBar.Position := TotalFileSize;

Bei diesem Code sehe ich, wie der Balken hoch läuft und nicht gleich 100% anzeigt. Wie kann ich die Animation abschalten?