eCommonCalendar错误:无法设置日历日期或时间

我启动了一个新的Delphi应用程序,删除了一个 TDateTimePicker 在主窗体上,我添加了以下代码:

procedure TForm1.FormShow(Sender: TObject);
begin
 DateTimePicker1.MaxDate:= Now - 9;
 DateTimePicker1.Date:= Now - 10;
end;

当我运行程序并试图使用 UP ARROW 从键盘上,我得到这个错误信息。但如果我把日期改成 MOUSE 到最后一个可能的日期,我没有收到错误消息。在那之后我也可以用箭头键改变日期。

我不明白是什么错了,也不知道该如何纠正这个问题。

更新: 当错误发生时,我发现了另一种情况:当我下拉列表并再次关闭它时,没有选择任何内容,但使用以下设置:

procedure TForm1.FormShow(Sender: TObject);
var D:TDate;
begin
 D:= Date;
 DateTimePicker1.Date:= D;
 DateTimePicker1.MaxDate:= D;
end;