Получение аттрибутов файла

[Shouldercannon]

Так я получаю атрибут(ы) файла

var
  s: string;
  attr: Integer;
begin
  attr := FileGetAttr(Edit1.Text);
  if (attr and faReadOnly) <> 0 then s := 'Только чтение, ';
  if (attr and faHidden) <> 0 then s := s + 'Скрытый, ';
  if (attr and faSysFile) <> 0 then s := s + 'Системный, ';
  if (attr and faVolumeID) <> 0 then s := s + 'Идентификатор тома, ';
  if (attr and faDirectory) <> 0 then s := s + 'Файл папки, ';
  if (attr and faArchive) <> 0 then s := s + 'Архивный, ';
  if (attr and faAnyFile) <> 0 then s := s + 'Любой файл, ';

  Memo1.Lines.Add('Файл "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" имеет атрибут "' + s + '"');

У только что созданного txt файла имееются атрибуты: "Архивный, Любой файл". С какого он стал архивным или это ошибка определения? При получении атрибутов других файлов везде присутсвует атрибут Любой файл. так и должно быть или это опять ошибка определения? Тоже самое и с папками.
P.S. В каких случаях стоит применять атрибуты: Идентификатор тома, Файл папки, Архивный, Любой файл и что за атрибут.

[Stilet]

С какого он стал архивным или это ошибка определения?

А вот потому что:

только что созданного

Этот атрибут винда ставит тем файлам, содержимое которых было изменены, до прямого изменения их атрибутов

В каких случаях стоит применять атрибуты

Отето лучше почитать описания этих атрибутов http://do888.narod.ru/3.htm