if _prop_Time then if _prop_DateFormat=0 then Control.Perform(DTM_SETFORMATA, 0, Longint(PChar('H:mm')))
                         else Control.Perform(DTM_SETFORMATA, 0, Longint(PChar('H:mm:ss')));