Помогите плиз с таймером

[prog38]

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

а часы программно обозначается hour???

да хоть горшком назови, главное какое значение ты присвоишь етому hour) удобно тому кто с языком дружит

[eoln]

kinals, у меня в примере edit'ы не меняются. Условие накладываем на tt

procedure TForm1.Timer1Timer(Sender: TObject);   
begin   
  tt := tt - 1;   
  label1.caption :=   
    inttostr(tt div 3600) + ' ч ' +   
    format('%.2d', [tt mod 3600 div 60]) + ' м ' +   
    format('%.2d', [tt mod 3600 mod 60]) + ' с ';
  if tt = 0 then
  begin
    timer1.enabled := false;
    showmessage('Время истекло');
    //здесь наши действия
  end
end;

[kinals]

Спасибо за помощь, все нормально работает

[Crivel]

Извеняюсь за флуд, меня опередили.