How To Change The System Time

This code shows how to set the system time to another value.

 

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