Source position: batterymanager.pas line 18
type TOnBatteryDisCharging = procedure(
Sender: TObject;
batteryAtPercentLevel: Integer
) of object;