[Pilot_Red]

Чтобы работало "на всем диапазоне временой оси" в пределах суток

в таймере все убери все и вставь этот кусок кода

Код:

sec:=RazSec-SecondsBetween(time,t2);
ProgressBar1.Position:=(round(100*(sec-sec1)/RazSec));