procedure <наследник>.CNNotify(var Message: TWMNotify);
var
  I, MonthNo,YearNo: Integer;
  CurState: PMonthDayState;
begin
  inherited;//обязательно вначале если вы хотите выделять жирным необходимые дни 
            // иначе переменная CurState  заполняется не для того года в предке!! 
  with Message, NMHdr^ do
  begin
    case code of
      MCN_GETDAYSTATE:
        with PNmDayState(NMHdr)^ do
        begin
          FillChar(prgDayState^, cDayState * SizeOf(TMonthDayState), 0);
            CurState := prgDayState;
            for I := 0 to cDayState - 1 do
            begin
              YearNo:=stStart.wYear ;
              MonthNo := stStart.wMonth + I;
              if MonthNo > 12 then
               begin
               MonthNo := MonthNo - 12;
               YearNo:=stStart.wYear +1;
               end;
               <Вызов вашей процедуры с правильным годом>(YearNo,  MonthNo, CurState^);
                                                             // передаваемые параметры      
              Inc(CurState);
            end;

        end;
    end;
  end;