Помогите,пожалуйста, с поиском exe файлов

for (int i = 0; i < DirList->Count; i++)
{
     AnsiString Dir = DirList->Strings ; // Каталог, в котором ведётся поиск
     // Цикл поиска всех подкаталогов
          // Найденные подкаталоги добавляются в список: DirList->Add (NewDir);

     // Цикл поиска всех файлов указанного типа в этом каталоге
         // Найденные файлы добавляются в список: FileList->Add (FullName);
}