свои часы

[Altera]

Слушай, Liite, выдели 3 глобальные переменные типа shortInt для часов, минут и секунд.
В строку переводи только результат. Т.е. например у тебя h = 10, m = 35, s = 58. Тогда, для секундомера, делаешь так:

inc(s);
      if s = 60 then
      begin
         s := 0;
         inc(m);
         if m = 60 then
         begin
            m := 0;
            inc(h);
         end;
      end;
timeStr := intToStr(h)+':'+intToStr(m)+':'+intToStr(s); //timeStr: string;

Вот и всё, что тут париться. Аналогично для таймера...