delphi 获取 13位时间戳 与 互转