так и пишите, только на выход таймера ЕТ поставьте символьную переменную(Var2 в примере)
Var1:int;
Var2:time

Var1:=TIME_TO_INT(Var2)