Er aktuallisiert eine Zeit, aber dann nicht mehr?!

[xZise]

Ich habe eim TImage... Auf dem wird mit den Farbwerten rumgespielt (Brailleimage siehe Freeware)!
Wenn ich dann die Prozedur aufrufe, dann arbeitet er schön und der Fortschrittsbalken bewegt sich vorwärts (ggf. änder ist auch das Image), abder dann plötzlich:
"stoppt" er, also aktuallisiert die GUI net mehr, aber er arbeitet weiter und funzt auch weiterhin, wenn er fertig ist!

Allerdings habe ich keinen Sinn entdeckt: Manchmal macht er es wie ers soll, und manchaml nicht. Manchaml hat er 1 % schon, manchmal hat er 30%. [stimmt nicht]Nur einen Zusammenhang haben alle: es war noch nie 50% fertig![/stimmt nicht]

Vielleicht hilft euch der Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, Start, l : Integer;
  k : Extended;
  p: ^PixArray;
begin
  Start := GetTickCount;

  PBProgress.Max := Image.Height * Image.Width * 3;
  PBProgress.Position := 0;

  k := 255 / (TBColors.Position - 1);

  for i := 0 to Image.Height - 1 do begin

    p := Image.Picture.Bitmap.ScanLine[i];

    for j := 0 to Image.Width do begin

      for l := 1 to 3 do begin
        p^[l] := Round(Round(p^[l] / k) * k);

        PBProgress.Position := PBProgress.Position + 1;
        PBProgress.Refresh;
      end;


      LTime.Caption := 'Working (' + IntToStr((GetTickCount - Start) div 1000) + ' s)';
      LTime.Refresh;

      inc(p);
    end;
    if CBRefresh.Checked then
      Image.Repaint;
  end;

  LTime.Caption := 'Ready (' + FloatToStr((GetTickCount - Start) / 1000) + ' s)';
end;

Und nebenbei eine Frage: Lohnt sich ProcessMessages, oder reicht .refresh ? Und wo ist der unterschied zu .repaint ?