Az alábbi két eljárás segítségével beállíthatod a dátumot, illetve az időt.
uses Windows, SysUtils;

{...}

procedure setdate(y: word; m,d: byte);
var systime:tsystemtime;
begin
   getlocaltime(systime);
   systime.wday:=d;
   systime.wmonth:=m;
   systime.wyear:=y;
   setlocaltime(systime);
end;

procedure settime(h,m,s,ms:byte);
var systime:tsystemtime;
begin
   getlocaltime(systime);
   systime.whour:=h;
   systime.wminute:=m;
   systime.wsecond:=s;
   systime.wmilliseconds:=ms;
   setlocaltime(systime);
end;