[Marvel]

самое простое что пришло на ум, это использовать TTimer с интервалом 1 мс и юзать событие OnTimer:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := 'X: ' + IntToStr(Mouse.CursorPos.X) + ', Y: ' + IntToStr(Mouse.CursorPos.Y);
end;

Mouse.Cursor наследует всё от GetCursorPos, как писал Casper-Hacker

P.S. какова задача, таково и решение...

P.S.1: чорд, теме 2.5 месяца уже ((( не обратил внимания сразу