uses Dateutils; {...} var s:string; d:Tdatetime; b:cardinal; {...} b:=1354875345; d:=strtodate('1.01.1970'); d:=IncSecond(d,b); s:=datetostr(d); {...} end;