Delphi 当前时间添加指定秒后的时间

procedure TForm_Tips.Button_IncSecondClick(Sender: TObject);

var

  mDateTime: TDateTime;

begin

  mDateTime := Now;

  Memo_Log.Lines.Add('当前时间：' + DateTimeToStr(mDateTime));

  mDateTime := IncSecond(mDateTime, 600);

  Memo_Log.Lines.Add('改后时间：' + DateTimeToStr(mDateTime));

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/120549373