Получение координат мыши на экране (в том числе за пределами формы)

StatusBar1->Panels->Items[0]->Text="Положение мыши: "+(String)Mouse->CursorPos.x+"; "+(String)Mouse->CursorPos.y;

StatusBar1->SimpleText = "Положение мыши: " +
                         IntToStr(Mouse->CursorPos.x) +
                         "; " +
                         IntToStr(Mouse->CursorPos.y);

// в самом начале CPP-файла, перед конструктором формы
 
HHOOK MouseHook;
 
LRESULT CALLBACK LowLevelMouseProc(int nCode, WPARAM wParam, LPARAM lParam)
{
    if (nCode == HC_ACTION)
    {
 
        switch (wParam)
        {
        case WM_MOUSEMOVE:
            {
                MSLLHOOKSTRUCT *ptr = (MSLLHOOKSTRUCT*)lParam;
                Form1->StatusBar1->SimpleText =
                    L"Положение мыши: " + IntToStr((int)ptr->pt.x) + "; " +
                    IntToStr((int)ptr->pt.y);
            } break;
        }
 
    }
    return CallNextHookEx(NULL, nCode, wParam, lParam);
}
 
 
// OnCreate формы:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    MouseHook = SetWindowsHookEx(WH_MOUSE_LL,
        reinterpret_cast<HOOKPROC>(LowLevelMouseProc), HInstance, NULL);
}
 
// OnDestroy формы:
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    UnhookWindowsHookEx(MouseHook);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if (Timer1->OnTimer)
    Button1->Click();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
LPPOINT lpPoint;
GetCursorPos(lpPoint);
// выводим координаты в лейбл; при желании изменяем на вывод в статус бар
Label1->Caption = "x=" + IntToStr(lpPoint->x) + "     y=" + IntToStr(lpPoint->y);
}

POINT Pnt;
GetCursorPos(&Pnt);
Label1->Caption = "x=" + IntToStr((int)Pnt.x) + "     y=" + IntToStr((int)Pnt.y);