안녕하세요 다름이아니라 마우스 커서가는 곳마다 폼을 따라다니게 하면서 좌표를 뿌리고 싶은데요

커서를 따라다니면서 좌표를 뿌리지만... 마우스가 빠르게 움직이면 이 폼 영역을 벗어나게 됩니다 ㅠ

이문제는 어떻게 해결해야 할까요 ㅠ??


void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    GetCursorPos(&ptMouse);

    Form1->Top = ptMouse.y-150;
    Form1->Left = ptMouse.x-100;
    edt_X->Text = ptMouse.x;
    edt_Y->Text = ptMouse.y;
}
//---------------------------------------------------------------------------