TMonthCalendar lub TDateTimePicker - kolorowanie lub pogrubianie dat

Witam,
W jaki sposób kolorować lub pogrubiać konkretne daty w monthcalendar lub datetimepicker?
Znalazłem taki kod na pogrubianie, ale nie wiem czemu nie działa:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
 if Month = 4 then { April}
   MonthCalendar1.BoldDays([3,21,28],MonthBoldInfo); { Day 3, 21, 28 }
end;

dodanie znacznika <code class="delphi"> - @furious programming

W Google jest dużo wątków na ten temat - sprawdzałeś choć pierwszą stronę wyników?

1. http://stackoverflow.com/questions/4224225/refreshing-bolddays-of-tmonthcalendar-manually
2. http://stackoverflow.com/questions/7210565/how-do-you-programmatically-mark-a-date-in-delphis-tdatetimepickers-calendar
3. http://stackoverflow.com/questions/21659683/delphi-tdatetime-bold-days-with-tmonthcalendar