Anweisung wird nicht ausgeführt

[Keex]

Und zwar hab ich ein Problem. Folgender Code:

Delphi-Quellcode:

if i mod (100000000 div Number) = 0 then
        begin
          Progressbar1.Position := i div 1000000;
          Groupbox1.Caption := inttostr(i)+' von 100000000 Würfen';
          x := x +1;
          Alls[x] := -Allinall;
        end;

soweit so gut. die position der Progressbar wird immer schön aktualisiert (das hier ist in einer for-schleife), die groupbox1.caption wird aber nicht aktualisiert. nur am ende der schleife steht dann die neue caption da. das is aber blöd. wisst ihr woran das liegt?