I am trying to draw on a TDirectDraw.Surface.Canvas by plotting the current (x,y) in my OnMouseMove, but to get a continous line, I have to move the mouse slowly. Does anyone know of a way to insure that each OnMouseMove event is triggered no more than one-pixel away from the last, or a way to insure that lines drawn in this manner are continous?

procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
DXDraw1.Surface.Canvas.Pixels[x,y] := clWhite;
end;

Thanks!