몇 가지 방법이 있겠지만 WM_MOVE를 이용하시는 것이 편할 겁니다.

  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    procedure WMMove(var msg:TWMMove);    message WM_MOVE;      ///<----------------
  public
    { Public declarations }
  end;


procedure TForm1.WMMove(var msg: TWMMove);
begin
  inherited;

  Caption :=Format('x=%d, y=%d',[msg.xPos,msg.yPos]);         ///<------------------
end;


아주 잘 작동합니다. 그럼...