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;