Prog friert scheinbar mit "Keine Rückmeldung" ein

[ManniSt]

Mein Prog zur Zahlenverarbeitung friert scheinbar mit der Meldung "Keine Rückmeldung" ein.
Die Progressbar bleibt stehen. Der Taskmanager zeigt noch immer eine stabile und aktive Prozessorlast an. Ich weis aber dann nicht mehr, wieweit das Teil schon ist.

Das Ganze läuft super durch, solange das Fenster, z.B. zum Verschieben, nicht angepackt wird. In diesem Fall friert die Anzeige sofort ein.

Hat da jemand eine Lösungsidee???

for I := MVon to MBis do
begin
if IstErgebnis(I) = true then writeln(Datei,I);
if (GetTickCount - Tick4) > 250 then // Alle 250ms ProgressBar.Update
begin
Tick4 := GetTickCount;
ProgressBar.Position := I;
ProgressBar.Update;
end; // if (GetTickCount - Tick4) > 250 then
end; // for I := MVon to MBis do
ProgressBar.Position := Max;