Многопоточность - правильное завершение потоков

Pars - это потомок класса TThread
Pars *Thr; - задано глобально.

void __fastcall TForm1::Button15Click(TObject *Sender)
{
     int count( StrToInt( Edit5->Text ) ); // Количество потоков
     Pars **Thr = new Pars *[count];
     Thr[Form1->iter] = new Pars(true);
     Thr[Form1->iter]->Priority = tpLower;
     Thr[Form1->iter]->FreeOnTerminate = true;
     Thr[Form1->iter]->Resume( );
     Form1->CountThread++;
     sleep(1);
     Application->ProcessMessages();
}

void __fastcall TForm1::Button11Click(TObject *Sender)
{
    Pars **Thr;
    for(int i = 0; i < Form1->CountThread ; i++)
    {
       Thr[i]->Terminate();
    }
}

int count( StrToInt( Edit5->Text ) ); // Количество потоков
Pars **Thr = new Pars *[count];
void __fastcall TForm1::Button15Click(TObject *Sender)
{
    if(CountThread<Count-1)
    {
        Thr[CountThread] = new Pars(true);
        Thr[CountThread]->Priority = tpLower;
        Thr[CountThread]->FreeOnTerminate = true;
        Thr[CountThread]->Resume( );
        CountThread++;
    }
    else
        ShowMessage("No");
}
void __fastcall TForm1::Button11Click(TObject *Sender)
{
    for(int i = 0; i < CountThread ; i++)
        Thr[i]->Terminate();
    CountThread=0;
}
delete[] Thr;

Pars **Thr = new Pars*[20];

int count( StrToInt( Edit5->Text ) ); // Количество потоков
Pars **Thr = new Pars *[count];

Thr[i]->Terminate();

->Terminate();

Terminate

TerminateThread

delete[] Thr;

TerminateThread

Terminated;