[Страдалецъ]

Вообще уменьшить время довольно просто:

Код:

Var
  myTime: TSystemTime;
begin
 GetLocalTime(myTime);
 myTime.wHour := myTime.wHour - 1;
 SetLocalTime(myTime);
end;

Но! Для изменения времени необходимо обладать соответствующими правами.