Pegando a data de um arquivo

Unit SysUtils var

DataArq: TDateFile;
begin
DataArq:= FileDateToDateTime(FileAge('NomeDoArquivo'));
end;