Problem bei malen auf Form

[HTML04]

Ich schreibe momentan an einem paint-programm und habe ein problem beim malen, denn wenn man den cursor zu schnell bewegt, gibt es keinen durchgehenden strich mehr. Liegt es an dem code oder ist delphi bzw. mein computer zu langsam??? hier der code:

Delphi-Quellcode:

 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
malen.Pen.Color := Farbe;
malen.Pen.Width := Größe;
malen.MoveTo(x,y);
malen.LineTo(x,y);
down := true;
end;

[Flips]

Also bei mir passiert da ja irgendwie gar nichts, was wohl an dem MoveTo liegt.
Damit bewegst du ja den Stift an ne Stelle und malst von dieser Stelle zu dieser Stelle = du malst nichts.
ich würde es persönlich so machen:

Delphi-Quellcode:

//Down = globale Boolean Variable


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if down then
  Canvas.LineTo(x,y);
end;

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;

[HTML04]

Danke schön jetzt läuft alles wie geschmiert!