最近照着《百例课堂delphi7编程入门篇》做实例

前面的一些例子，都得到正确的结果了

但做到设置系统时间这个例子的时候，点了按钮没结果

例子实现步骤大概是这样的：
窗体上放一按钮，双击输入代码，如下：

procedure TForm1.Button1Click(Sender: TObject);
var
yourtime:Tsystemtime;
begin
  with yourtime do
  begin
    wyear:=1999;
    wmonth:=12;
    wday:=1;
    whour:=0;
    wminute:=0;
    wsecond:=0;
  end;
getsystemtime(yourtime);
end;

end.

我反复对照了几遍，代码应该没错，但运行程序点按钮就是没反应

照着输入了其他几个函数SYSTEMTIME，和setsystemtimeadjustment，都报错
换了getsystemtime，还是没反应

百度了一下，换了SetLocalTime，也没反应。

哪位懂，给个解释吧，谢谢！
补充：win7 64位　　　delphi xe5环境

。。。时间确实被改了。。。

追问：那点击按钮怎么才能蹦出时间设置框呢？

电子书上明明是说：在弹出的日期和时间对话框中可以看出系统时间被重新设置

[ 本帖最后由 不懂才问 于 2015-2-24 07:19 编辑 ]

终于有答案了。。。学习中，，，