uses
  System.Win.Sensors;

{$R *.fmx}

type
  TMyPlatformGpsStatus = class(TPlatformGpsStatus)
  public
    class function GetGpsStatusImplementer: TGpsStatusClass; override;
  end;

{ TMyPlatformGpsStatus }

class function TMyPlatformGpsStatus.GetGpsStatusImplementer: TGpsStatusClass;
begin
  Result := inherited;
end;

{TForm1}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('GPS con %d satélites', [TMyPlatformGpsStatus.GetGpsStatusImplementer.SatelliteCount]));
end;