怎么用canvas实现画笔的功能？即当鼠标左键按下时根据鼠标轨迹画任意线。(50分)

怎么用canvas实现画笔的功能？即当鼠标左键按下时根据鼠标轨迹画任意线。
注意：不是画直线，

搜索一下很多这种问题

var
Down: Boolean;
prePt: TPoint;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Down := True;
Canvas.MoveTo(X, Y);
end;

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

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Down then
begin
Canvas.LineTo(X, Y);
prePt := Point(X, Y);
end;
end;

楼上实现～

多人接受答案了。