Делаете секундный таймер
Tmr_1s(In:=not Tmr_1s.Q,Pt:=t#1s);

Считаете секунды
if Tmr_1s.Q then Count_s:=Count_s+1 ; End_if

Делаете минуты
if Count_s>=60 then Min_wrk:=Min_wrk+1;Count_s:=0;end_if

таким же образом делать часы .
Да , значения секунд , мин , час - ретайн.

Это самый удобный способ.