Билдер и 4 ядра

главный поток::Execute(){
    while (!terminated){
        подготовить данные // нераспараллеленная часть цикла
        запустить n дочерних потоков // распараллеленная часть цикла
        ждать пока все дочерние потоки засуспендятся
    }
}
 
дочерний поток::Execute(){
    while (!terminated){
        обсчёт объектов
        Suspend()
    }
}

главный поток::Execute(){
    while (!terminated){
        подготовить данные // нераспараллеленная часть цикла
        запустить n дочерних потоков // распараллеленная часть цикла
        Priority = tpIdle
        ждать пока все дочерние потоки засуспендятся
        Priority = tpTimeCritical
    }
}

bool c = true;
while (c){
    for (i = 0; i < nthreads; i++)      // nthreads - кеоличество потоков
        c = c && t[i]->Suspended;   // t - массив указателей на потоки
    c = !c;
}

DWORD WINAPI ThreadFunc( LPVOID id );
HANDLE hEvent;
volatile g_nthreads = 12;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        hEvent = CreateEvent(NULL, False, False, NULL);
        int nthreads = g_nthreads;
 
        for ( int i = 0; i < nthreads; i++ )
                CreateThread(NULL, 0, ThreadFunc, 0, 0, 0);
 
        WaitForSingleObject(hEvent, INFINITE);  // æäåì, ïîêà g_nthreads ñòàíåò ðàâíûì íóëþ è âûçîâåòñÿ ôóíêöèÿ SetEvent
 
        ShowMessage("Ãîòîâî");
}
//---------------------------------------------------------------------------
 
DWORD WINAPI ThreadFunc(LPVOID id)
{
        // ---------- âû÷èñëåíèÿ ------------
        //...
        // ----------------------------------
 
        g_nthreads--;
        if (g_nthreads == 0) SetEvent(hEvent);
 
        return 0;
}

const int nthreads = 4;
volatile int threads_counter;
HANDLE hEvent;
 
class cyclethread: public TThread{  // класс дочернего потока
private:
    int a, b;
protected:
    void __fastcall Execute(){
        while (!Terminated){
            if (b > a)
                calc_units(a, b);   // вычисления, производимые потоком
            threads_counter--;
            if (threads_counter == 0)
                SetEvent(hEvent);
            Suspend();
        }
    }
public:
    __fastcall cyclethread(bool CreateSuspended): TThread(CreateSuspended){
    }
    void setab(int aa, int ab){
        a = aa;
        b = ab;
    }
};
 
class mainthread: public TThread{   // класс главного потока
private:
    cyclethread *t[nthreads];
protected:
    void __fastcall Execute(){
        while (!Terminated){
            threads_counter = nthreads;
            the_cycle();    // нераспараллеленная часть вычислений
            int i;
            if (units.size() > 0)
                for (i = 0; i < nthreads; i++){
                    t[i]->setab(units.size() * i/nthreads, units.size() * (i + 1)/nthreads);    // тут дочернему потоку выделяется часть массива для обработки
                    t[i]->Resume();
                }
            WaitForSingleObject(hEvent, INFINITE);
        }
    }
public:
    __fastcall mainthread(bool CreateSuspended) : TThread(CreateSuspended){
        int i;
        for (i = 0; i < nthreads; i++)
            t[i] = new cyclethread(true);
        hEvent = CreateEvent(NULL, false, false, NULL);
    }
    __fastcall killthreads(){
        int i;
        for (i = 0; i < nthreads; i++)
            TerminateThread((void *)t[i]->Handle, 0);
    }
    __fastcall ~mainthread(){
        int i;
        for (i = 0; i < nthreads; i++)
            delete t[i];
    }
};