MouseMove zeichnet auf Canvas Punkte

[Skycl4w]

Hallo DP

Ich hab derzeit ein Problem mit Canvas und MouseMove.

Ich möchte mit MouseMove auf einem Canvas zeichnen. Zieht man die Maus jedoch schneller, erscheinen statt durchgezogene Linien Punkte. Die Variable Zeichne wird mit MouseDown und Up geändert.

Delphi-Quellcode:

procedure TMain.imCanvasMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Zeichne = 1 then
    begin
      with imCanvas.canvas do
        begin
          moveto(x,y);
          lineto(x+1,y+1);
        end;
    end;
end;

Danke im vorraus