要取得檔案最近修改的時間，可以使用 FileGetDate 或 FileAge 函式，

function FileAge(const FileName: string): Integer;
function FileGetDate(Handle: Integer): Integer;

兩者傳回的都是 DOS 的日期時間格式，可以使用 FileDateToDateTime 
函式轉換成 TDateTime。以上的函式定義於 SysUtils.pas 中。

在比較早期的 Delphi 版本沒有提供這些函式時，可以使用下面的函式：

function GetModifiedDate(FileName: string): TDateTime;
var
  SearchRec: TSearchRec;
  ModifiedTime: TFileTime;
  SystemTime: TSystemTime;
begin
  Result := 0;
  if FindFirst(FileName, faAnyFile, SearchRec) = 0 then 
  begin
    ModifiedTime := SearchRec.FindData.ftLastWriteTime;
    FileTimeToLocalFileTime(ModifiedTime, ModifiedTime);
    FileTimeToSystemTime(ModifiedTime, SystemTime);
    Result := SystemTimeToDateTime(SystemTime);
  end;
  FindClose(SearchRec);
end;

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)