Ускорить алгоритм составления списка файлов данной директории

    TSearchRec SR;
    TSearchRec tFileInfo;
    int a(0);
    if(FindFirst(ExtractFileDir(Application->ExeName) + "\\date\\images\\*.*", faDirectory, SR) == 0)
    {
        do
        {
            if( (SR.Attr & faDirectory) == faDirectory &&
                SR.Name != "." &&
                SR.Name != ".."
            )
            {
                if(FindFirst(ExtractFileDir(Application->ExeName) + "\\date\\images" + SR.Name + "\\*.*", faAnyFile, tFileInfo) == 0)
                {
                    do
                    {
                        // Исключаем корневую
                        if( tFileInfo.Name != "." &&
                            tFileInfo.Name != ".." &&
                            (tFileInfo.Attr & faDirectory) != faDirectory
                        ) // "." - ссылка на саму себя, ".." - родительская папка
                        {
                            a++;
                        }
                    }
                    while(FindNext(tFileInfo) == 0); // Цикл продолжается, пока FindNext что-то находит.
                }
                ComboBox7->Items->Add(SR.Name + "(" + a + ")");
                a = 0;
            }
        }
        while (FindNext(SR) == 0);
    }
    ComboBox7->ItemIndex = 0;
    FindClose(SR);
    FindClose(tFileInfo);
    List->Clear();
    delete List;

ComboBox7->Items->Add(SR.Name + "(" + a + ")");

ComboBox7->Items->Add(SR.Name + "(" + a + ")");

#include <IOUtils.hpp>
// ...
    ShowMessage(IntToStr(TDirectory::GetFiles("D:\\test\\largest").Length)); // 170000 файлов

         WIN32_FIND_DATA Data;
     HANDLE Search=FindFirstFile((Path+"*.dll").c_bstr(),&Data);
     if (Search)
     do{
               // делаем с найденным чего надо
     }while(FindNextFile(Search,&Data));
     FindClose(Search);

TMemoryStream *Dir=new TMemoryStream();
Dir->LoadFromFile("c:\\windows");