Grafik in Delphi

[algo05]

Hallo, ich möchte beim Klicken auf eine Button in einem canvas eine Linie erzeugen, deren punktweisen Aufbau man sehen können soll.
Meine Idee:


with image1.canvas do
for i:=1 to 100 do
begin
pixels[i,50]:=clred;
sleep(50);
end;

Leider vergeht nach dem Klciken des Buttons eine Zeit und dann erscheint die Linie gleich komplett. Habe es auch schon mit ner Warteschleife (for J:= 1 to 1000 do ) bzw. mit timer.interval:=100 versucht, leider ohne Erfolg.
Wer kann mir helfen?

Gruß
algo