RTC1(EN:=M_Time , PDT:=DT#1970-01-01-00:00:00, Q=> , CDT=> );

Time_RUN:=DT_TO_TIME(RTC1.CDT); (*Преобразуем время и дату во время*)

Time_RUN_M:=TIME_TO_DWORD(Time_RUN)/60000; (*получаем минуты*)

Time_RUN_M_p:=DWORD_TO_WORD(Time_RUN_M-Time_RUN_H*60); (*передаем в панель минуты*)

Time_RUN_H:=TIME_TO_DWORD(Time_RUN)/3600000; (*получаем часы*)

Time_RUN_H_p:=DWORD_TO_WORD(Time_RUN_H); (*передаем в панель часы*)