Как узнать в Делфи координаты в котором находится курсор мыши?

[SVS]

Плиз, как узнать в Делфи координаты в котором находится курсор мыши? Нарисовал вот такую простую программу:
var
koord: TPoint;
procedure (по факту движения мыши)
begin
GetCursorPos(koord);
Caption:=inttostr(koord.X)+' '+inttostr(koord.Y);
end
Но она выводит координаты только в пределах того окна из которого была вызвана (если из кнопки, то в пределах кнопки, если из формы, то в пределах формы). Как мне выйти за пределы окна, например на рабочий стол или окна других программ?

[Speeker]

procedure TForm1.Timer1Timer(Sender: TObject);
var
kod:tpoint ;
begin
  getcursorpos(kod);
form1.Caption:=inttostr(kod.X)+' '+inttostr(kod.Y);
end;

MouseMove - только когда курсор над объектом

[SVS]

Спасибо. Сам я наверное никогда бы не догадался, что все дело в процедуре MouseMove. Что она такая вот ограниченная... объектом.

[Lucky13]

Чтобы узнать координаты курсора мыши независимо от того где он находится нужно создать глобальный hook на события мыши. Посмотрите в MSDN ф-цию SetWindowsHook, параметр WH_MOUSE