Поиск каталогов и добавление их имен в список

procedure TForm4.Button1Click(Sender: TObject);
var varser:Tsearchrec;
    search:integer;
begin
form4.listBox1.Clear;
search:=findfirst(extractfilepath(application.ExeName)+'Collection\*.*',fadirectory,varser);
while search<>0 do
begin
form4.listbox1.Items.Add(varser.name);
search:=findnext(varser)          ;
end;
 
end;

procedure DirectoryList(Path: string; DirList: TStrings);
 var
   Varser: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faDirectory, Varser) = 0 then
   begin
     repeat
       if (varser.Attr = faDirectory) then
       begin
         DirList.Add(Varser.Name);
       end;
     until FindNext(Varser) <> 0;
     FindClose(Varser);
   end;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DirectoryList(extractfilepath(application.ExeName)+' Coll ection\*.*', ListBox1.Items);
end;

procedure DirectoryList(Path: string; DirList: TStrings);
 var
   Varser: TSearchRec;
 begin    //ищем файл с атрибутом faDirectory (папку) в указанном пути и запоминаем в varser
   if FindFirst(Path + '*.*', faDirectory, Varser) = 0 the 
   begin
     repeat  
       if (varser.Attr = faDirectory) then //если атрибут в найденном = папка
       begin
         DirList.Add(Varser.Name);    // добавляем в лист бокс
       end;
     until FindNext(Varser) <> 0;  //и так пока папки не закончатся
     FindClose(Varser);  //освобождаем ресурсы.
   end;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DirectoryList(extractfilepath(application.ExeName)+' Coll ection\*.*', ListBox1.Items); //вызываем процедуру :)
end;