Для определения состояния системы питания компьютера ипользуется API-функция GetSystemPowerStatus. Она заполняет структуру TSystemPowerStatus и в случае успеха возвращает нулевое значение.
Данная структура имеет следующие поля (вырезка из модуля Windows.pas):

type
  PSystemPowerStatus = ^TSystemPowerStatus;
  _SYSTEM_POWER_STATUS = packed record
    ACLineStatus : Byte; //Подключение к сети переменного тока
    BatteryFlag : Byte; //Состояние батареи (уровень заряда и прочее)
    BatteryLifePercent : Byte; //Оставшийся ресурс батареи (в %)
    Reserved1 : Byte; //???
    BatteryLifeTime : DWORD; //Оставшееся время работы батареи (в сек.)
    BatteryFullLifeTime : DWORD; //Полное время работы батареи (в сек.)
  end;

... 

Ждём ваши коментарии!