В начале программной секции сравниваете переменную Time_now<>Time_old, если неравенство есть, то значит тикает - сброс таймера.
TON(IN:=Time_now=Time_old,PT:=10s); Взводим таймер, если равно.
В конце присваиваете Time_old:=Time_new;