delphi LocationSensor1 动态请求权限

uses System.Permissions;

procedure TLocationForm.swLocationSensorActiveSwitch(Sender: TObject);begin{$IFDEF ANDROID}
 if swLocationSensorActive.IsChecked then
   PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
     procedure(const APermissions: TArray