Delphi Canvas карандаш

[wayder]

Как можно с помощью Canvas сделать, так что бы, когда нажимаешь левую кнопку мышки и тянешь ее по форме рисуется линия соответственно координатам мышки в данный момент, вообщем нужно сделать что-то на подобии карандаша.

на данный момент у меня есть прожка, которая рисует круг или прямоугольник если держать кнопку Shift.

Может у кого-то есть исходник Paint написанного на Delphi

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
begin
Center.X := X;
Center.Y := Y;
if ssShift in Shift then
Circle := False
else
Circle := True;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Radius.X := abs(Center.X-X);
Radius.Y := abs (center.Y-Y);
if Circle then
Canvas.Ellipse(Center.X-Radius.X, Center.Y-Radius.Y, Center.X+Radius.X, Center.Y+Radius.Y)
else
Canvas.Rectangle(Center.X-Radius.X, Center.Y-Radius.Y, Center.X+Radius.X, Center.Y+Radius.Y);
if CheckBox1.Checked=True  then
begin
 Radius.X:=abs(Center.X -X);
Radius.Y:=abs(Center.Y-Y);
  Invalidate;
end;
end;

procedure TForm1.PeinColor1Click(Sender: TObject);
begin
if ColorDialog1.Execute then begin
  Canvas.Pen.Color:=GetGValue(ColorDialog1.Color);
end;
end;

procedure TForm1.BrushColor1Click(Sender: TObject);
begin
if ColorDialog1.Execute then begin
  Canvas.Brush.Color:=GetGValue(ColorDialog1.Color);
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
if CheckBox1.Checked=True  then
 begin
if Circle then
Canvas.Ellipse(Center.X-Radius.X, Center.Y-Radius.Y, Center.X+Radius.X, Center.Y+Radius.Y)
else
Canvas.Rectangle(Center.X-Radius.X, Center.Y-Radius.Y, Center.X+Radius.X, Center.Y+Radius.Y);
end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Caption:=Format ('Координаты: x=%d, y=%d ' , [X, Y]);
end;

procedure TForm1.Clier1Click(Sender: TObject);
begin
Canvas.Brush.Color := clBtnFace;
Canvas.FillRect(Canvas.ClipRect);
end;

procedure TForm1.FormColor1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
begin
  Form1.Color:=GetGValue(ColorDialog1.Color);
end;  
end.

[Neeter]

Вот, зайдите на страницу

[wayder]

Спасибо большое!

[mihali4]

У вас на компьютере, можно сказать - под носом:
...Borland\Delphi7\Demos\Doc\Graphe x