Hi,
ansonsten könntest du auch noch einen Timer nehmen.
Delphi-Quellcode:
procedure TForm1.langsamzeichnen;
begin
Timer1.Interval := 200;
Timer1.Tag := 50;
Timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := Timer1.Tag< 150;
canvas.Pixels[Timer1.Tag, 40] := clblack;
Timer1.Tag := Timer1.Tag + 1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
langsamzeichnen;
end;