如何修改MonthCalendar控件显示的周(Delphi)

用DelphiXE2做程序界面的时候遇到的问题
使用系统自带的 MonthCalendar 控件，显示一年中的工作周时间和DateUtils单元提供的 WeekOf(MonthCalendar1.Date) 相差1周。但是程序逻辑上需要DateUtils单元提供的 WeekOf更合适（如下图所示，一年年初的第一周时间不一样），请问有什么办法可以修改 MonthCalendar 控件源码，让显示的工作周时间 和WeekOf计算的周时间相统一呢。

img

NthDayOfWeek 返回指定日期时间值该月的第几个星期几