Определение глобальных координат курсора

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos(pos);
  Label1.Caption:=IntToStr(pos.X);
  Label2.Caption:=IntToStr(pos.Y);
  if getasynckeystate($24)<>0 then
  Timer1.Enabled:=False;
end;