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;