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

// Ширина контрола с календариком заметно отличается
// в зависимости от установленной в системе локали.
procedure TForm1.Button1Click(Sender: TObject);
const
  MCM_GETMINREQRECT = $1000 + 9;
var
  r: TRect;
begin
   SendMessage(MonthCalendar1.Handle, MCM_GETMINREQRECT, 0, LParam(@r));
   ShowMessage(Format('Width: %d, Height: %d', [r.Right-r.Left, r.Bottom-r.Top]));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  MCM_GETMAXTODAYWIDTH = $1000 + 21;
var
  TodayWidth: Integer;
begin
   TodayWidth := SendMessage(MonthCalendar1.Handle, MCM_GETMAXTODAYWIDTH, 0, 0);
   ShowMessage(Format('Ширина надписи: %d', [TodayWidth]));
end;