Определение списка файлов в указанной директории

[s2dentishe]

Есть такая проблема. Определяю список всех файлов в указанной директории (переменная Path ) и заношу её в переменную SR(типа TSearchRec). Но некоторые папки(.Attr = 16) отбрасываются, а некоторые - нет(выдают .Attr = 17 или еще какое-то число, отличное от 16). Почему?
procedure ListFileDir(Path: string; MyListBox:TListBox)
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then //устанавливаю проверку(если тип //файла - папка, то не добавлять в список)
begin
MyListBox.Items.Add(SR.Name + ' '+IntToStr(SR.Size)+'байт');
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

[s2dentishe]

Выяснил
)
procedure ListFileDir(Path: string; MyListBox:TListBox)
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then //устанавливаю проверку(если тип //файла - папка, то не добавлять в список)
begin
MyListBox.Items.Add(SR.Name + ' '+IntToStr(SR.Size)+'байт');
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

Вместо (SR.Attr <> faDirectory) необходимо поставить условие (SR.Attr and faDirectory) <> faDirectory