批改本地日期和时间，应是2013-03-03 01:13:00，却变成2013-03-03 09:13:00

2013-03-06

修改本地日期和时间，应是2013-03-03 01:13:00，却变成2013-03-03 09:13:00procedure TForm1.Btn_1Click(Sen

修改本地日期和时间，应是2013-03-03 01:13:00，却变成2013-03-03 09:13:00


procedure TForm1.Btn_1Click(Sender: TObject);
var  
  SetDate : TSystemTime;
begin  
  SetDate.wYear:=2013;  
  SetDate.wMonth:=03;  
  SetDate.wDay:=03;  
  SetDate.wHour:=01;  
  SetDate.wMinute:=13;  
  SetDate.wSecond:=0;  
  SetDate.wMilliseconds:=0;  
  SetSystemTime(SetDate);
end;

原本改后的时间应是2013-03-03 01:13:00
但实际实际时间却是2013-03-03 09:13:00
这是为什么？
好像东八区的问题，如何解决，如果使用方式


  SetDate.wHour:=01-8;

会报错。
[解决办法]
SetLocalTime试试