[aqula]

Ребят у меня сегодня вообще ламерский вопрос.
Пишу счетчик времени работы в программе.
Написал вот такой код

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
h,m,s:integer;
hh,mm,ss:string;
begin
    try

        inc(s);

        if s=60 then begin inc(m); s:=0; end;
        if m=60 then begin inc(h); m:=0; end;
        if s<10 then ss:='0'+inttostr(s) else ss:=inttostr(s);
        if m<10 then mm:='0'+inttostr(m) else mm:=inttostr(m);
        if h<10 then hh:='0'+inttostr(h) else hh:=inttostr(h);
        Label1.Caption := hh+':'+mm+':'+ss//DateTimetoStr(Now);
     except
       on E:Exception do begin
         Timer1.Enabled := False;
         ShowMessage(E.Message);
       end;
    end;
end;

Но не могу инициализировать переменные s, m, h на 0
Изначально почему то берутся какие то большие числа. Как это делается?