[NumLock]

// declare
FTime: TTime;
// initialization 1 min 5 sec
FTime:=StrToTime('00:01:05');
// decrement 1 sec
FTime:=IncSecond(FTime, -1);
// out
Label1.Caption:=TimeToStr(FTime);