Функция FileAge – получение даты/время последнего изменения файла, не открывая его

Функция FileAge в Delphi получение даты/время последнего изменения файла, не открывая его.

Функция FileAge: Получение даты последнего изменения текущего файла формы Модуля

var
  fileName   : string;
  fileDate   : Integer;

begin
  // Попытка открыть файл Unit1.DCU для текущего проекта
  fileName := 'Unit1.DCU';
  fileDate := FileAge(fileName);

  // Мы получили возраста файла?
  if fileDate > -1 then
    ShowMessage(fileName+' дата последнего изменения = '+
                DateToStr(FileDateToDateTime(fileDate)));
end;