Dim battery As Integer battery = SystemInformation.PowerStatus.BatteryLifePercent * 100
float lifePerc = SystemInformation.PowerStatus.BatteryLifePercent * 100;
function GetBatteryLifePercent: Integer; var SystemPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SystemPowerStatus); Result := SystemPowerStatus.BatteryLifePercent; if Result > 100 then Result := -1; end;