ListView, иконки, два потока

[FunnyK12]

Доброго времени суток.
Так так иконки довольно долго извлекаются из файлов, то, если, предположим, на форме изменить путь к папке (пример: текущая Windows -> system32) лично у меня проходит не менее 4 секунд (между BeginUpdate и EndUpdate).
Идея такова, чтобы распараллелить каким-либо образом вытаскивание иконок из файлов.
Создали 4 потока. Первый - хватает 1 файл (предположительно функций FindNext). Второй - 2... (Ну или не в такой последовательности). И так далее пока файлы в папке не закончатся.

Только вот чего-то не хватает для понимания(мозгов).
Надеюсь, что кто-то объяснит как это реализовать, либо напишет что идея так себе и есть другие способы.

    TSHFileInfo SFI = {0};
    TSearchRec filestruct;
    TIcon *Icon = new TIcon;
    TListItem *newitem;
    String Dir;
    int RESULT_FINDFIRST;
 
    Dir = Edit1->Text;
 
    ListView1->Items->BeginUpdate();
    ListView1->Items->Clear();
 
    RESULT_FINDFIRST = FindFirst(Dir + "*.*", faAnyFile, filestruct);
 
    while (!RESULT_FINDFIRST) {
        if ((filestruct.Name != ".") && (filestruct.Name != "..")) {
 
            newitem = ListView1->Items->Add();
            newitem->Caption = filestruct.Name;
            newitem->SubItems->Add(filestruct.Size);
 
            SHGetFileInfo((Dir + filestruct.Name).c_str(), 0, &SFI, sizeof(SFI),
                SHGFI_ICON | SHGFI_SMALLICON);
            Icon->Handle = SFI.hIcon;
            newitem->ImageIndex = ImageList1->AddIcon(Icon);
            DestroyIcon(SFI.hIcon);
        }
        RESULT_FINDFIRST = FindNext(filestruct);
    }
 
    ListView1->Items->EndUpdate();