Сделать что б линия которая рисуется - была сплошной, тоесть не были точки, если быстро двигаться мышкой по картинке

Image1->Canvas->Pen->Width=3;
startX=X; 
startY=Y; 
Image1->Canvas->MoveTo(startX, startY); 
Image1->Canvas->LineTo(X, Y);

bool MouseEnteredImage = 0;
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
  Image1->Canvas->Pen->Width=3;
 
  if (MouseEnteredImage)
  {
    Image1->Canvas->MoveTo(X, Y);
    MouseEnteredImage = 0;
  }
 
  Image1->Canvas->LineTo(X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseEnter(TObject *Sender)
{
  MouseEnteredImage = 1;
}