Zistenie a nastavenie systémového času.

var
 t: _SYSTEMTIME;
begin
 GetSystemTime(t);
 t.wYear:=2005;
 SetSystemTime(t);
end;