Zeichenprogramm erstellen: wie die Linien zeichnen?

[malo]

Mit LineTo() hatte ich es auch schon versucht, mich hat da nur gestört, dass der immer unnötige Linien gemacht hat...

Aber auch mit MoveTo geht das nicht wirklich...

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  pt: TPoint;
begin
  Zeichnen := true;
  Canvas.MoveTo (pt.X-196, pt.y-145);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Zeichnen := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: Tpoint;
begin
  if Zeichnen = true then
    begin
      pt := Mouse.CursorPos;
      Canvas.LineTo (pt.X-196, pt.y-145);
    end;

end;

Wenn ich dann klicke und Maustaste gedrückt halte, passiert noch nichts. Wenn ich dann aber die Maus bewege, zeichnet mein Prog mir immer erst eine senktrechte Linie von unten bis zur Maus...