Координаты курсора мыши за пределами формы

[NIKOLAYY2]

А что уже идея, два кода совместить в один и уже что то получается нормальное! ))

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetKeyState(VK_LBUTTON) < 0 then
  begin
    Caption := 'Нажата левая';
    Memo1.Lines.Add(IntToStr(Mouse.CursorPos.X) + ', ' + IntToStr(Mouse.CursorPos.Y));
  end
end;

Так я получаю координаты в мемо-поле не просто по каждому тику таймера, а только тогда когда кнопку нажму.
Таймер конечно сделал пореже, а то за одно нажатие кнопки несколько подряд раз в мемо-поле дублирует, но все равно иной раз и проскочит два раза, но все лучше чем на рабочий стол мышь наводить, затем запоминать координаты, затем вписывать руками в форму и потом опять тоже самое несколько раз )