[lmikle]

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

Код:

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;