Для выяснения даты последнего изменения файла можно
   воспользоваться следующей функцией: 


   function GetFileDate(FileName: string): string;
   var
     FHandle: Integer;
   begin
     FHandle := FileOpen(FileName, 0);
     try
       Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
     finally
       FileClose(FHandle);
     end;
   end;