функция FindFirst не работает как положено

    if FindFirst('C:\*', faHidden, SR)=0 then
    begin
      ListBox1.Items.Add(SR.Name);
      while FindNext(SR) = 0 do
        begin
          if (SR.Attr and faDirectory)=faDirectory then
           begin
            FindRes := FindNext(SR);
            continue;
           end;
          ListBox1.Items.Add( SR.Name);  
      end
    end;

var
  Sr : TSearchRec;
  Attr : Integer;
begin
  Attr := faAnyFile - faDirectory;
  try
    if FindFirst('C:\*', Attr, Sr) = 0 then
    repeat
      if (SR.Attr and faHidden) <> faHidden then Continue;
      ListBox1.Items.Add(Sr.Name);  
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  SR: TSearchRec; // ïîèñêîâàÿ ïåðåìåííàÿ
  path: string;
  FindRes,  attr: Integer; // ïåðåìåííàÿ äëÿ çàïèñè ðåçóëüòàòà ïîèñêà
begin
  attr:=0;
  ListBox1.Clear;
  if CheckBox1.Checked =true  then
  begin
    attr:=attr + $02;
  end;
  if CheckBox2.Checked  then
  begin
    attr:=attr + $04;
  end;
    if CheckBox3.Checked  then
  begin
    attr:=attr + $20;
  end;
    if CheckBox4.Checked  then
  begin
    attr:=attr + $01;
  end;
  if not(CheckBox1.Checked) and not(CheckBox2.Checked) and not(CheckBox3.Checked) and not(CheckBox4.Checked) then
  begin
    attr:=$3f;
  end;
  //  showmessage(IntToStr(attr));
  path:=Edit1.Text;
  // î÷èñòêà êîìïîíåíòà ListBox1 ïåðåä çàíåñåíèåì â íåãî ñïèñêà ôàéëîâ
  path:=path + '\*';   //Èùåì âñå ôàéëû
  // çàäàíèå óñëîâèé ïîèñêà è íà÷àëî ïîèñêà
 
  //Attr := faAnyFile - faDirectory;
  try
    if FindFirst(path, attr, Sr) = 0 then
    repeat
      if (SR.Attr and attr) <> attr then Continue;
      ListBox1.Items.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Sr : TSearchRec;
  Attr : Integer;
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0)) + 'Files\';
  Attr := faHidden + faReadOnly;
  try
    if FindFirst(Path + '*', Attr, Sr) = 0 then
    repeat
      if (SR.Attr and Attr) <> Attr then Continue;
      Memo1.Lines.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Sr : TSearchRec;
  Attr : Integer;
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0)) + 'Files\';
  Attr := faHidden + faReadOnly;
  try
    if FindFirst(Path + '*', Attr, Sr) = 0 then
    repeat
      if not (
        ( (SR.Attr and faHidden) = faHidden )
        or ( (SR.Attr and faReadOnly) = faReadOnly ) )
      then Continue;
      Memo1.Lines.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Sr : TSearchRec;
  Attr : Integer;
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0)) + 'Files\';
  Attr := faHidden + faReadOnly;
  try
    if FindFirst(Path + '*', Attr, Sr) = 0 then
    repeat
      if
        ( (SR.Attr and faHidden) = faHidden )
        or ( (SR.Attr and faReadOnly) = faReadOnly )
      then begin
        Memo1.Lines.Add(Sr.Name);
      end;
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;

If (Sr.Attr - faHidden) <> 0 Then //Кроме атрибута faHidden установлены ещё какие-то

If (Sr.Attr And faReadOnly) <> 0 Then //Установлен атрибут faReadOnly

If (Sr.Attr And faReadOnly) = faReadOnly Then //то же самое