Möchte man eine simple Art des Zeichnens mit der Maus realisieren geht man wie folgt vor:

[code:1]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if unten then
begin
form1.Canvas.LineTo(x,y);
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.canvas.MoveTo(x,y);
unten:=true;
end;

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

end.
[/code:1]

Bei gedrückter Maustaste zeichnet der Cursor die Bewegung nach