delphi 计算文件与当前时间差(天小时分钟秒)

procedure TForm1.FormCreate(Sender: TObject); // 窗体初始化
var
  iFileHandle:  Integer ;
  FileTime:TDateTime;
  Days: Integer ;
  Hours: Integer ;
  Minutes: Integer ;
  Seconds: Integer ;
begin
  DataPath : =  ExtractFilePath(paramstr( 0 )) + ' data';
   if  FileExists(DataPath + ' Local.rar') then
  begin
    iFileHandle: = FileOpen(DataPath + ' LocalDataBase.rar', fmOpenRead);
    FileTime : =  FileDateToDateTime(FileGetDate(iFileHandle));
    FileClose(iFileHandle);
       Days := DaysBetween(now,FileTime);
       Hours:=HoursBetween(now,FileTime)-(Days * 24);
       Minutes := MinutesBetween(now,FileTime)-((Days * 24 + Hours) * 60);
       Seconds := SecondsBetween(now,FileTime)-(((Days * 24 + Hours)*60+Minutes) * 60);
    Label1.Caption: = ' 最后修改时间：'+
    IntToStr(Days) + '  天'+
    IntToStr(Hours) + '  小时'+
    IntToStr(Minutes) + '  分'+
    IntToStr(Seconds) + '  秒之前';
   end ;
end ;