Code funktioniert nicht (MoveTo, LineTo)

[Lefko]

Hi Leute ,

wieso funktioniert das hier nicht?

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Punkt : TPoint;
    Steigung : TPoint;
    z : byte;
begin
Label1.visible := true;
with Form1.canvas do
 begin
  Punkt.X := X;
  Punkt.Y := Y;
  Steigung.X := Punkt.X - (Form1.width div 2);
  Steigung.Y := Punkt.Y - Form1.Height;
  Pen.Width := 3;

  for z := 0 to 9 do
   begin
    Pen.color := clblack;
   MoveTo((Form1.Width div 2)+((Steigung.X div 10)*z),Form1.height-((Steigung.Y div 10)*z));
   LineTo((Form1.Width div 2)+((Steigung.X div 10)*(z+1)),Form1.height-((Steigung.Y div 10)*(z+1)));
    Application.ProcessMessages;
    sleep(200);
    Pen.Color := clbtnface;
   MoveTo((Form1.Width div 2)+((Steigung.X div 10)*z),Form1.height-((Steigung.Y div 10)*z));
   LineTo((Form1.Width div 2)+((Steigung.X div 10)*(z+1)),Form1.height-((Steigung.Y div 10)*(z+1)));
    Application.ProcessMessages;
   end;
 end;
end;

Es passiert einfach gar nichts! (Deshalb habe ich das mit dem Label.Visible eingebaut! Wenn ich ne Maustaste runterdrücke, erscheint es, wenn ich sie loslasse, verschwindet sie wieder! das geht auch wunderbar!)
Es soll ein Strich vom unteren Form-Rand in der Mitte Richtung MausPosition "fliegen"!

very schträinsch!

MfG Lefko.