[RusMaXXX]

попробуй это:

Код:

procedure SetDateTime(Year : word; Month, Day : byte; Hour, Min, Sec, MSec : byte);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := Year;
    wMonth := Month;
    wDay := Day;
    wHour := Hour;
    wMinute := Min;
    wSecond := Sec;
    wMilliseconds := MSec;
  end;
  SetLocalTime(ATime);
end;