самое простое что пришло на ум, это использовать 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 месяца уже ((( не обратил внимания сразу