Pozycja kursora myszy na ekranie

Jak pobrać wpółrzędne kursora myszy? (delphi 2.0)

daj na forme label
i w procedurze onmousemove wpisz:

p:TPoint;

GetCursorPos(p);
x:=p.x;
y:=p.y;
label1.caption:=inttostr(x)+' '+inttostr(y);

var CursorPos: TPoint;
begin
GetCursorPos(CursorPos);
end;

Teraz w zmiennej CursorPos masz koordynaty względem całego ekranu (doladniej: względem obszaru określonego za pomocą funkcji ClipCursor, ale standardowo obejmuje on cały obszar wyświetlania)

daj ta procedure pod OnTimer a nie OnMouseMove dla formy
/ -T-H-C-