Óra beállítása saját programból.

procedure TForm1.Button1Click(Sender: TObject);
var ti:Tsystemtime;
begin
getlocaltime(ti);
ti.wYear:=1956;
ti.wMonth:=3;
ti.wDay:=31;
ti.wHour:=20;
ti.wMinute:=10;
ti.wSecond:=2;
setlocaltime(ti);
end;

Megjegyzés:
A getlocaltime utasítás itt csak azért szerepel, hogy a lehetőséget megadjam az idő esetleges
kiolvasásához. (a:=ti.wYear;)