Calendar - fazer alguns dias ficar negrito

{ 

  Use BoldDays to encode the days of the current month 

  that should appear in bold. 

} 

{ 

  Mit BoldDays werden die Tage im aktuellen Monat codiert, 

  die fett angezeigt werden sollen. 

} 

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;