利用下面的代码，我们可以在日期变化的时候，把日期修改回来！
只要在我们的窗体处理过程里面添加处理WM_TIMECHANGE的代码即可。
type
TForm1 = class(TForm)
private
procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE;
end;