delphi minipaint

[lillydodo]

Hi!

Ich muss für Info ein Minipaint_Programm schreiben, aber mein Pen malt nicht, könnt ihr mir weiterhelfen?
Das ist mein Quelltext bisher:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Canvas.lineTo(x,y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if FormMouseDown=true
then form1.canvas.pen.lineto(x,y);
end;