设置windows系统时间！！！急！！！在线等

Question

现在有两个DateTimePicker控件DateTimePicker1和DateTimePicker2。分别用其date和timeprocedure TForm54.BitBtn1Click(Sender: TObject);
var systemtime:Tsystemtime;
    DateTime:TDateTime;
begin
  DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+timetost(DateTimePicker2.Time));
  DateTimeToSystemTime(DateTime,systemtime);
  SetLocalTime(SystemTime);
  close;
end;但是这样程序运行有错： 错误为：‘2005-3-1815:08:11'is not a valid date and time.
请问应该怎么改啊

Answer 1

我试过加空格了，也不行啊，strtodatetime后会自动把我的空格去掉了
还是那样错

Answer 2

DateTime:=strtodatetime(datetostr(DateTimePicker1.Date)+'空格'timetost(DateTimePicker2.Time));