[NumLock]

Код:

var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  Windows.ScreenToClient(Handle, CursorPos);
  Caption:=IntToStr(CursorPos.X)+' / '+IntToStr(CursorPos.Y);
end;