SysTime: TsystemTime;
timen,time2:TDateTime;
ss2,ss3:int64;
str2:string;
GetLocalTime(SysTime);
timen:= SystemTimeToDateTime(SysTime);
time2 := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
ss2 := 28800000;
ss3 := MilliSecondsBetween( timen, time2 );
ss3 :=ss3- ss2;
str2 := IntToStr(ss3);