Официальный форум Simple-Scada.
procedure Calendar1_OnDataChange(Sender_TM_Control);begin "Ваша_переменная_в_OPC_Int32".Value := 1000*SecondOf(Calendar1.AsDateTime)+60000*MinuteOf(Calendar1.AsDateTime);end.