[Delphi] Pozyja pod kurosrem

Jak pobrać Pozycję, X,Y, na całym ekranie, a nie tylko na na aplikacji.

Co zrobić, aby ograniczyć jedną z wartośći, ale tak żeby można było samemu wpisać, a po wciśnięciu Kombinacji klawiszy, wszystkowracało do normy.

CursorPos + F1

...
var Punkt:TPoint;
...
GetCursorPos(Punkt);
x:= punkt.x ;
...

Na Całym Ekranie, a nie tylko na formie, i teraz Watości X,Y do labela, Ale co zrobić aby np wartość X zatrzymać, i poryszać się tylko po wartościach pionowych. I To wszystko dla całego ekranu