Delphi取UTC时间秒

自格林威治标准时间1970年1月1日00:00:00 至现在经过多少秒数
时间模块
Uses   DateUtils;
当前时间：中国是 +8时区，换成UTC 就要减掉8小时
showMessage(inttostr(DateTimeToUnix(now())-28800));