Zeichnen verzögern

[wfs12]

so gehts!

Delphi-Quellcode:

procedure TForm1.langsamzeichnen;
var
  i,x,y,laenge:integer;
begin
  laenge:=200;
  x:=500;
  y:=100;
  for i:=0 to laenge do begin
    canvas.Pixels[a,b]:=clblack;
    a:=a+1;
    sleep(50);
  end;
end;