А измени у себя код компонента:
1. Выдели компонент.
2. Нажми Ctr+F.
3. Найди 215 строку: начинается: WM_NOTIFY.
4. Добавь строку: FillChar(DayT, SizeOf(DayT), 0);//очистка массива
Должно получиться следующее:
{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;
Проверь на последнем списке дат.