Data e Hora de Arquivo.

  ShowMessage(DateTimeToStr(FileDateToDateTime(FileAge(´c:\autoexec.bat´))));

function GetFileDate(Arquivo: String): String;
var
  FHandle: integer;
begin
  FHandle := FileOpen(Arquivo, 0);
  try
  Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
  FileClose(FHandle);
end;