Delphi XE 取得当前时间戳的几个函数

uses  System.DateUtils
  
procedure TForm1.addlog(fs: string);
begin
  Memo1.Lines.Add(FormatDateTime('[yyyy-mm-dd hh:nn:ss.zzz]:', now) + fs);
end;

procedure TForm1.btn_TimeClick(Sender: TObject);

  //1970-01-01 00:00:00开始的秒数
  function GetTimeSecInt64: Int64;
  begin
    result := DateTimeToUnix(