[Decoding]

Код:

procedure SetTime;
var
  vsys: TSystemTime;
  vYear, vMonth, vDay, vHour, vMin, vSec, vMm: Word;
begin
   DecodeDate( Date, vYear, vMonth, vDay );
   DecodeTime( Time, vHour, vMin, vSec, vMm );
   vMm := 0;
   vsys.wYear := vYear;
   vsys.wMonth := vMonth;
   vsys.wDay := vDay;
   vsys.wHour := vHour;
   vsys.wMinute := vMin-5; // Уменьшаем время на 5 минут
   vsys.wSecond := vSec;
   vsys.wMilliseconds := vMm;
   vsys.wDayOfWeek := DayOfWeek( Trunc( Date ) );
   SetSystemTime( vsys ); 
   // или SetLocalTime( vsys ), в зависимости от того, что нужно
end;