Либо с помощью таймеров, например TP или RTC.
Либо с помощью SysLibTime (я бы выбрал этот вариант).
Если передний фронт "включение механизма", то t_vkl := время из указанной библиотеки,
Если задний фронт "включение механизма", то t_vikl := время из указанной библиотеки, время работы = t_vikl - t_vkl