Поиск папок, файлов

procedure TForm1.Button1Click(Sender: TObject);
var
   searchResult : TSearchRec;
begin
   // Èùåì êàòàëîãè íà äèñêå Ñ
   SetCurrentDir('C:\');
 
   if FindFirst('*', faDirectory, searchResult) = 0 then
   begin
     repeat
      // Ïîêàçûâàåì òîëüêî êàòàëîãè
       if (searchResult.attr and faDirectory) = faDirectory
       then Memo1.Lines.Add('Directory = '+searchResult.Name);
     until FindNext(searchResult) <> 0;
 
    // Îâîáîäèì ðåñóðñû, èñïîëüçóåìûå ýòèìè óñïåøíûìè, ïîèñêàìè
     FindClose(searchResult);
   end;
 end;

procedure TForm1.Button8Click(Sender: TObject);
var
i: Integer;
begin
  DirectoryListBox1.ItemIndex := 0; //èäåì â íà÷àëî äèñêà
  DirectoryListBox1.OpenCurrent; //îòêðûâàåì åãî
 
  for i := 0 to DirectoryListBox1.Count-1  do
  begin
  DirectoryListBox1.ItemIndex:=i;
   //ShowMessage('Ìû ñåé÷àñ íà ïàïêå '+IntToStr(i));
 
   DirectoryListBox1.OpenCurrent; //îòêðûòü
   //ShowMessage('Îòêðûëè ïàïêó '+IntToStr(i));
 
   Memo1.Lines.Add(DirectoryListBox1.Items.Text);
   //ShowMessage('Ñêîïèðîâàëè èìåíà ïàïîê èç îòêðûòîé ïàïêè ');
 
   DirectoryListBox1.ItemIndex := 0; //èäåì â íà÷àëî äèñêà
   //ShowMessage('Âåðíóëèñü â êîðåíü äèñêà Ñ');
 
   DirectoryListBox1.OpenCurrent; //îòêðûòü
   //ShowMessage('È îòêðûëè äèñê Ñ');
  end;
end;

procedure FindWithLevel(path, ext:string; str:TStrings; level:integer);
var SR:TSearchRec;
begin
  if FindFirst(path+ext, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr = faDirectory) then
        if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          str.Add('Directory = ' + SR.Name);
          if level <> 1 then FindWithLevel(path, ext, str, level - 1);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   FindWithLevel('C:\', '*', Memo1.Lines, 2);
end;

if (SR.Attr and faDirectory) <> 0 then

if level <> 1 then FindWithLevel(path+SR.Name+'\', ext, str, level - 1);

procedure FindWithLevel(path, ext:string; str:TStrings; level:integer);
var SR:TSearchRec;
begin
  if FindFirst(path+ext, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr = faDirectory) then
        if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          str.Add('Directory = ' + SR.Name);
          if level <> 1 then FindWithLevel(path+SR.Name+'\', ext, str, level - 1);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   FindWithLevel('C:\', '*.*', Memo1.Lines, 2);
end;

if (SR.Attr and $20) = $20 then

str.Add('Directory = ' + SR.Name);

str.Add('Directory = ' + path+SR.Name);

if (SR.Attr and faDirectory) = 0 then