请问在delphi中设置系统时间怎么来实现？

var 　　
    systemtime:Tsystemtime;
　　DateTime:TDateTime;
begin
　　DateTime:=StrToDateTime(Edit1.text); //获得时间（TDateTime格式）
　　DateTimeToSystemTime(DateTime,systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式
　　SetLocalTime(SystemTime); //设置系统时间
　　GetLocalTime(SystemTime); //读取系统时间
　　DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式
　　Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间
end;//TSystemTime的格式
PSystemTime = ^TSystemTime;
TSystemTime = record
　wYear: Word;
　wMonth: Word;
　wDayOfWeek: Word; 　wDay: Word;
　wHour: Word;
　wMinute: Word;
　wSecond: Word;
　wMilliseconds: Word;
end;