Használd a form1 onmousemove eseményét!

var
Form1: TForm1; x1,y1:integer; nyomva:boolean;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if nyomva then begin
form1.Canvas.MoveTo(x1,y1);
form1.Canvas.LineTo(x,y);
x1:=x;
y1:=y;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
nyomva:=true; x1:=x;y1:=y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
nyomva:=false;
end;
Bár itt is a lényeg az, hogy a lineto és a moveto fuggvényeket használjuk.
Ez azért is jó mert változtataható a szín és méret.
pl.:
form1.Canvas.pen.Color:=clred;
form1.Canvas.Pen.Width:=10;

Sőt próbáld ki:
Tedd ezt az onmousmove-ba:
form1.Canvas.pen.Color:=form1.Canvas.pen.Color+20;
és legyen a form1.Canvas.Pen.Width:=100;
Mókás kukacokat rajzolhatsz. C:

Üdv.: Totó