procedure FindDirectories; //Ищет папки и выводит их список
var r:integer;
   SR:TSearchRec; //Специальная запись для просмотра результатов поиска
begin
   r:=FindFirst('*',0,SR); //Находим первый файл по маске "*" (как в поиске Проводника)
   while r=0 do //Если ничего не найдётся, r будет меньше нуля
   begin
     if SR.Attr=faDirectory then //Если найденный файл - папка
       MainFrm.VirtList.AddItem(SR.Name,nil); //Добавляем имя в список
     r:=FindNext(SR); //Продолжаем поиск
   end;
   FindClose(SR); //Прекращаем поиск, освобождая поисковый движок
end;