Changer l'heure système

procedure TForm1.Button1Click(Sender: TObject);
var
systemtime : TSystemTime;
NewTime:string;

begin
NewTime:='13:58:00';
DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);
SetLocalTime(systemtime);
end;