Знакомая ситуация у меня тоже не проканало a: ton := (pt:=t#1s) , пришлось в теле программы время забивать при каждом вызове.