Как програмно выполнить поиск папки?

// Список всех подкаталогов директории
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    TSearchRec sr;
    UnicodeString dir;
    if(SelectDirectory("Select folder with files", "11111111", dir))
    for(int r=FindFirst(dir+"\\*.*",faDirectory,sr);!r;r=FindNext(sr)) {
        if (sr.Name!="." && sr.Name!=".."){
            Memo1->Lines->Add(sr.Name);
        }
    }
    FindClose(sr);
}

#include <vcl.h>
#pragma hdrstop
#include "ClearMain.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
#include <FileCtrl.hpp> // для доступа к SelectDirectory
AnsiString aDirectory; // каталог, который выбрал пользователь
                      //  (в котором находятся проекты C++Builder)
AnsiString cDir;      // текущий каталог
AnsiString FileExt;   // расширение файла
int n = 0;            // количество удаленных файлов
// Щелчок на кнопке Обзор (выбор каталога)
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
    if ( SelectDirectory("Выберите каталог","", aDirectory))
    {
        // диалог Выбор файла завершен щелчком на OK
        Label3->Caption = aDirectory;
        Button2->Enabled = true; // теперь кнопка Выполнить доступна
    };
}
// удаляет ненужные файлы из текущего каталога и его подкаталогов
void __fastcall Clear(void)
{
   TSearchRec SearchRec; // информация о файле или каталоге
   cDir = GetCurrentDir()+"\\";
   if ( FindFirst("*.*", faArchive,SearchRec) == 0)
       do {
            // проверим расширение файла
            int p = SearchRec.Name.Pos(".");
            FileExt = SearchRec.Name.SubString(p+1,MAX_PATH);
            if ( ( FileExt[1] == '~') || ( FileExt == "obj" ) ||
                 ( FileExt == "tds" ) )
            {
                  MainForm->Memo1->Lines->Add(cDir+SearchRec.Name);
                  DeleteFile(SearchRec.Name);
                  n++;
            }
        }
        while ( FindNext(SearchRec) == 0);
       // обработка подкаталогов текущего каталога
       if ( FindFirst("*", faDirectory, SearchRec) == 0)
          do
              if ((SearchRec.Attr & faDirectory) == SearchRec.Attr )
              {
                    // каталоги ".." и "." тоже каталоги,
                    // но в них входить не надо !!!
                    if (( SearchRec.Name != "." ) && (SearchRec.Name != ".."))
                    {
                         ChDir(SearchRec.Name); // войти в подкаталог
                         Clear();               // очистить каталог
                         ChDir("..");           // выйти из каталога
                    };
               }
          while ( FindNext(SearchRec) == 0 );
}
// щелчок на кнопке Выполнить
void __fastcall TMainForm::Button2Click(TObject *Sender)
{
    Memo1->Clear();       // очистить поле Memo1
    ChDir(aDirectory);    // войти в каталог, который выбрал пользователь
    Clear();              // очистить текущий каталог и его подкаталоги
    Memo1->Lines->Add("");
    if (n)
        Memo1->Lines->Add("Удалено файлов: " + IntToStr(n));
     else
        Memo1->Lines->Add("В указанном каталоге нет файлов, которые надо удалить.");
}

// Список всех подкаталогов и файлов в директории
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSearchRec sr;
  AnsiString path = "C:\\Temp\\";
  AnsiString filename = "*.*";
  int iAttributes = 0;
  for (int i = 0; i < 1; i++) {
    if (FindFirst(path+filename, faAnyFile, sr) == 0) {
    do {
        Memo1->Lines->Add(sr.Name);
      } while (FindNext(sr) == 0);
      FindClose(sr);
    }
  }
}

AnsiString path = "C:\\";

ExtractFilePath(Application->ExeName)

if (sr.Name == "Folder2") {Ваши->Действия;}

GetLogicalDriveStrings // список локальных дисков
// есть и GetLogicalDrives