Delphi-PRAXiS - Batteriestand abfragen Android FMX

Hallo zusammen,
Da ich zum Abfragen des Batteriestands keinen vollständigen Code gefunden habe, wollte ich ihn an dieser Stelle in vollständiger Form einmal zur Verfügung stellen ;) In 10.3 funktioniert er so ohne weitere Ergänzungen.

Code:

			 // Uses for Battery

{AndroidAPI.JNI.GraphicsContentViewText,

 AndroidAPI.JNI.JavaTypes,

 AndroidAPI.JNI.OS,

 Androidapi.Helpers}

function BatteryPercent: Integer;

var

  filter: JIntentFilter;

  battery: JIntent;

  level, scale: Integer;

  myContext : JContext;

begin

  try

    filter := TJIntentFilter.Create;

    filter.addAction(TJIntent.JavaClass.ACTION_BATTERY_CHANGED);

    myContext := SharedActivityContext;

    battery := myContext.registerReceiver(NIL, filter);

    level := battery.getIntExtra(StringToJString('level'), -1);

    scale := battery.getIntExtra(StringToJString('scale'), -1);

    result := (100 * level) div scale;

  except on e:exception do begin Result := -1; end;

  end;

end;