如何更改当前系统时间？在线等待！(0分)

如何更改当前系统时间？在线等待！

procedure TForm1.Button1Click(Sender: TObject);
var
systemtime : TSystemTime;
NewTime:string;
begin
NewTime:='13:58:00';
DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);
SetLocalTime(systemtime);
end;