[vah-smile]

Сообщение от angvelem

При запуске получаешь текущее время:

Немного не то, так как нам нужно выводить посекундно остаток времени. Наверное, для реализации первоначального задания всетаки прийдется написать кусок программы, для подсчета минут и секунд:

Код:

if ((m>0) or (s>=0)) Then
    begin
      if s>=0 Then dec (s);
      if ((s<0) and (m>0)) Then begin dec (m); s:=59; end;
    end
  Else If ((m<=0) and (s<=0)) Then
    begin
      Timer1.Enabled := False;
      Panel1.Visible:=True;
    end;

Всем спасибо за полемику!