[lmikle]

высчитай время выключения, включая дату.
далее, получаешь кол-во секунд до выключения (SecondsBetween()).
А уж как ты отформатируешь кол-во секунд - это твое дело. можно показать в секундах, можно получить в часах, минутах.

Код:

1 2 3 4 5 6 7 8 9

function GetTimeFromSecs(ASecs : Integer) : String; var   hh, mm, ss : integer; begin   hh := ASecs div 3600;   mm := (ASecs mod 3600) div 60;   ss :=  (ASecs mod 3600) mod 60;   Result := Format('%d:%d:%d',[hh,mm,ss]); end;