Das "Vorausdenken" in einer Procedure verhindern

[qb-tim]

Hi,

ich möchte ein Programm programmieren, in dem nach einer bestimmten Zeit ein neues Bild geladen wird.
Mein Problem ist, dass in einer Prozedur Delphi "vorauszudenken" scheint. Wie verhindere ich das?

Beispiel: TCanvas

Ich möchte meine Fläche pixelweise fülle, aber sehen wie jeder Pixel erscheint:

Bis jetzt: (Kurze Wartezeit und dann eine volle Fläche )

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
var x, y: Integer;
begin
  for y := 0 to Image1.Height do
    for x := 0 to Image1.Width do
     Image1.Canvas.Pixels[x, y];
end;