[Amin_Mansouri]

از این تابع برای تغییر ساعت سیستم استفاده کنید

کد:

procedure TForm1.Button1Click(Sender: TObject);
var
   HoraSistema : TSystemTime;
   NewTime:string;
begin
   {New Time}
   {Nueva hora:}
   NewTime:='13:58:00';
   DateTimeToSystemTime( Date+StrToTime(NewTime),HoraSistema);
   SetLocalTime(HoraSistema);
end;