Визуальный отсчет времени

[ydav_kaa]

Всем доброго времени суток!
Пытаюсь реализовать отсчет времени на форме следующим образом:

...
var
  Form1: TForm1;
  chas, minut, sek, msec: word;
...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
    if
    ((chas = 0) and (minut = 0) and (sek = 0)) then
  begin
    showmessage('Время вышло!');
    timer2.Enabled := false;
  end;

  sek := sek - 1;
  if (sek = 0) then
  begin
    minut := minut - 1;
    sek := 59;
  end;

  if (minut = 0) then
  begin
    chas := chas - 1;
    minut := 59;
  end;

  hour.Caption := IntToStr(chas);
  min.Caption := IntToStr(minut);
  secondz.Caption := IntToStr(sek);

end;

Где chas, minut, sek беру следующим образом

DecodeTime(JvTimeEdit1.Time, chas, minut, sek, msec);

Все бы хорошо, но...
начало

и дальше...

в чем ошибка?

[psycho-coder]

Может вот из-за этого?

if (minut = 0) then
  begin
    chas := chas - 1;
    minut := 59;
  end;

когда минут ноль, уменьшается час, но проверки что час равен нулю нет.

[phomm]

нет, тут думаю надо просто проверку на окончание времени поставить в конец процедуры и всё дб пучком. Т.е. сперва вычет времени, а уже только потом проверка на окончание отсчета, а не наоборот. Есть правда минус - если запустите таймер при всех нулях, то он у вас пойдет с максимума (т.к сперва вычтется время), и надо в процедуре запуска поставить проверку на все нули и не запускать при таком случае

[psycho-coder]

У меня например, отсчет идет на минуты (прога для выключения компа).

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  time: Integer; // Для отображения оставшегося времени
begin
  // first ставится в истину при первом запуске, а интервал в 1 
  if first then
  begin
    Timer1.Interval := mMin; // mMin = 60000 = одной минуте
    first := false;
  end;
  
  if min = 0 then
  begin
    Shutdown; // Время истекло
    Exit;
  end;
  
  // в кнопке запуска (где задаются начальные значения), min устанавливается в 
  // min := StrToInt(Edit1.Text) * mMin;
  Dec(min, mMin); // Уменьшение min на 60000
  time := Round(min/mMin); // Ну, и сам вывод инфы
  label3.Caption := 'Осталось: ' +  IntToStr(time) + OutTitle(time); // OutTitle формирует окончание слов, это не стандартная функция.
  Tray.Hint := Label3.Caption;
end;

Но это у меня.