DateTimePicker.CalColors.BackColor:=LBackColor;
   DateTimePicker.CalColors.MonthBackColor:=LBackColor;
   DateTimePicker.CalColors.TextColor:=LTextColor;
   DateTimePicker.CalColors.TitleBackColor:=LBackColor;
   DateTimePicker.CalColors.TitleTextColor:=LTextColor;
   DateTimePicker.CalColors.TrailingTextColor:=LTextColor;

   with Control{$ifndef F_P}^{$endif} do begin
      Perform(DTM_SETMCCOLOR,MCSC_BACKGROUND,   Color2RGB(_prop_Color));   
      Perform(DTM_SETMCCOLOR,MCSC_TITLEBK,      Color2RGB(_prop_TitleBkColor));
      Perform(DTM_SETMCCOLOR,MCSC_TEXT,         Color2RGB(Font.Color));   
      Perform(DTM_SETMCCOLOR,MCSC_TITLETEXT,    Color2RGB(_prop_TitleTextColor));
      Perform(DTM_SETMCCOLOR,MCSC_MONTHBK,      Color2RGB(_prop_MonthBkColor));
      Perform(DTM_SETMCCOLOR,MCSC_TRAILINGTEXT, Color2RGB(_prop_TrailingColor));      
   end;