[M.A.D.M.A.N.]

Вот еще один вариант

Код:

var MousePoint:TPoint;
begin
  GetCursorPos(MousePoint);
  Caption:=Format('Mouse position X=%d Y=%d',[MousePoint.X,MousePoint.Y]);
end

Это глобльно.