Чтобы получить дату и время файла, необходимо вызвать функцию FileAge и преобразовать полученное значение при помощи функции FileDateToDateTime в значение TDateTime:
functionGetFileDateTime(FileName: string
): TDateTime; var
intFileAge: LongInt; begin
intFileAge := FileAge(FileName); if
intFileAge = -1 then
Result := 0 else
Result := FileDateToDateTime(intFileAge) end
;