您可以使用System.DateUtils中的Yesterday或IncDay(Now,-1)函数，如下所示：

uses System.DateUtils;

begin
  // Example 1:
  ShowMessage('Yesterday = ' + DateToStr(Yesterday)); // Date of yesterday
  ShowMessage('Today     = ' + DateToStr(Date)); // Date of Today
  ShowMessage('Tomorrow  = ' + DateToStr(tomorrow)); // Date of tomorrow

  // Example 2:
  ShowMessage('Yesterday = ' + DateToStr(IncDay(Now,-1))); // Date of yesterday
  ShowMessage('Today     = ' + DateToStr(Now)); // Date of Today
  ShowMessage('Tomorrow  = ' + DateToStr(IncDay(Now,1))); // Date of tomorrow
end;

这些函数返回TDateTime数据类型。时间组件设置为零。

为什么不直接使用Date - 1呢？
由于在TDateTime编码中一天是1.0，因此减去1就足够了。