icex.dwSize := sizeof(INITCOMMONCONTROLEX);
   icex.dwICC := ICC_DATE_CLASSES;
   InitCommonControlsEx(icex);
   Flags := MakeFlags(@opt,PickerFlags);
   Control:= _NewCommonControl(FParent,'SysDateTimePick32',
             WS_VISIBLE or WS_CHILD or WS_TABSTOP or Flags,True,nil);
   InitCommonControlCommonNotify(Control);