{78}   WM_NOTIFY : begin
                   NMS := PNMSelChange(Msg.lParam);
                    case NMS.nmhdr.code of
                     MCN_GETDAYSTATE:
                      with PMDAYSTATE(Msg.LParam)^ do
                       begin
{вот это строка}        FillChar(DayT, SizeOf(DayT), 0);//очистка массива
                        sm := stStart.wMonth;//предыдущий месяц с которого начат календарь
                        i := 0;  

{78}   WM_NOTIFY : begin
                   NMS := PNMSelChange(Msg.lParam);
                    case NMS.nmhdr.code of
                     MCN_GETDAYSTATE:
                      with PMDAYSTATE(Msg.LParam)^ do
                       begin
                        sm := stStart.wMonth;//предыдущий месяц с которого начат календарь
                        i := 0;               
                        while i < cDayState do//cDayState - количество отображаемых месяцев (+2 включая предыдущий и следующий)
                         begin
                          DayT[i] := fControl.DayM[sm];
                          inc(i);
                          inc(sm);
                          if sm = 13 then sm := 1;
                         end;
{вот эту строку}        DayT[1] := $00000000;
                        prgDayState := Cardinal(@DayT);
                      end;

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;