Linien beim zeichnen anzeigen lassen

[EarlyBird]

nur als Anregung,
zeichne die Linien einfach in einer Schleife immer einen Punkt länger

Delphi-Quellcode:

Self.Canvas.MoveTo(50,150);
for i := 0 to 200 do
  begin
    Self.Canvas.LineTo(50 + I, 150);
    Sleep(5);
  end;
I:= 0;
Self.Canvas.MoveTo(250,150);
for i := 0 to 200 do
  begin
    Self.Canvas.LineTo(250, 150 + I);
    Sleep(5);
  end;

[Andy1811]

Ja, das ist schonmal sehr gut. Ich bin schon drann, und würde nachher mal den Code posten, falls er nicht doch zulang werden sollte Erstmal sollte es funktionieren