Data de criação de um arquivo

Unit SysUtils
 

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