سلام،



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

if not MouseIsDown then

exit;

Form1.Canvas.Pixels[x,y]:=clRed;

end;


من با کد فوق روی فرمم خط ترسیم میکنم اما وقتی موس با کمی سرعت کشیده میشه خط ناپیوسته و نقطه نقطه میشه.لطفا راهنمایی نمایید.
با تشکر