一个关于TdateTimePicker控件的奇怪问题, 有谁知道的,帮帮忙!

在创建一个窗体时, 当前系统日期是:2005年12月31日时, 在运行调试时出现如下错误信息: invalid argument to date encode.
当我将系统日期调为2005年12月30日时, 则运行正常, 这是为什么? 代码如下:
procedure TFrom1.FormCreate(Sender: TObject);
var
yy_m, mm_m, dd_m : word;
begin
dateTimePicker1.Date:=Date(); //当前系统日期为2005年12月31日时,运行调试此处出现问题!
decodedate(dateTimePicker1.Date, yy_m, mm_m, dd_m);
.........
end;