请问 语句如何写

请教 语句怎么写
if ACurDate <> ADateList.Strings[AEndPos] then
  begin

  如果 ACurDate 和ADateList.Strings[AEndPos]如期差 大于 8 天 則
  DeleteFile(AWorkDir + AFileList.Strings[Integer(ADateList.Objects[AEndPos])]);
  end；


請問怎麼寫這 判斷 




[解决办法]
直接相减就是天数
[解决办法]
Delphi提供了时间相减得到天数的函数。详细按F1可知。

Delphi(Pascal) code

Unit DateUtils Syntax [Delphi] function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;