Помогите с таймером

[alexBlack]

В посте #2, я, конечно, немного перемудрил. Вот еще вариант.
Кстати, по-моему вот это:
s:=s-1;
m:=m-1;
и описание ошибки в вопросе говорит о том, что автор хотел сделать обратный отсчет.

var N : integer = 1*3600 + 2*60 + 1;
procedure TForm1.Timer1Timer(Sender: TObject);
var m : integer;
begin
   if N = 0 then exit;
   dec(N);
   m := N mod 3600;
   label1.Caption := format('%.2d:%.2d:%.2d',[N div 3600, m div 60, m mod 60]);
end;