マウスのグローバル座標を得るには？

uses
  ..., FMX.Platform;

procedure TForm1.Button1Click(Sender: TObject);
var
  MouseService: IFMXMouseService;
  dMousePos: TPointF;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then
    begin
      dMousePos := MouseService.GetMousePos;
//    X := Trunc(dMousePos.X);
//    Y := Trunc(dMousePos.Y);
    end;
end;

uses
  ..., FMX.Platform, uPlatformService;

var
  dMousePos: TPointF;
begin
  dMousePos := TPlatformService.Get<IFMXMouseService>.GetMousePos;
//X := Trunc(dMousePos.X);
//Y := Trunc(dMousePos.Y);
end;

uses
  ..., FMX.Platform;

var
  MousePos: TPointF;
begin
  MousePos := Platform.GetMousePos;
  X := MousePos.X;
  Y := MousePos.Y;
end;