Синхронизация потоков

void Parsing::Proxy_create(string proxy,string port)
{
    proxy_private = proxy;
    port_private = port;
}

void Parsing::SaveToFile()
{
    ofstream cout("OUTPUT.txt",ios::app);  // открываем файл и дописываем в него
    cout << "\tProxy - " << proxy_private << "\tPort - " << port_private
    << "\tThred - " << thr_private << endl;
    cout.close();
}

void Parsing::Thr(string thr)
{
    thr_private = thr;
}

String Parsing::Get_proxy()
{
    return AnsiString(proxy_private.c_str());
}

string proxy_private;
string port_private;
string thr_private;

Pars **Thr;
using namespace std;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    InitializeCriticalSection(&CS);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
 Parsing *c = new Parsing(); // объект класса парсинга
 int count( StrToInt( Edit5->Text ) ); // Количество потоков
 TStringList PROXY_list = new TStringList();
 PROXY_list->LoadFromFile(ExtractFileDir(Application->ExeName)+"//PROXY.txt");
 Thr = new Pars *[count];
 String NameThr;
 /*создаем потоки*/
 /*создаем потоков столько, сколько проксей - их 24*/
    for(Form1->iter = 0; Form1->iter < PROXY_list->Count() ; Form1->iter++)
    {
      c->Proxy_create(AnsiString(PROXY_list->Strings[Form1->iter].SubString(0,ip-1)).c_str(),AnsiString(PROXY_list->Strings[Form1->iter].SubString(ip+1,PROXY_list->Strings[Form1->iter].Length())).c_str()); /*создаем прокси*/
      NameThr = "Thr"+(String)Form1->iter;  // индивидуальный номер потока
      Thr[Form1->iter] = new Pars(true,c,NameThr);
      Thr[Form1->iter]->Priority = tpLower;
      Thr[Form1->iter]->FreeOnTerminate = true;
      Thr[Form1->iter]->Start();
      Memo1->Lines->Add("поток создан"); 
             /*тут нареканий нет - след. 2 строки(выводят все хорошо)*/
      Memo3->Lines->Add( c->Get_proxy() ); // выводим прокси текущего потока для проверки
      Memo3->Lines->Add( NameThr ); // выводим индивидуальный номер потока
      sleep(1);
      Application->ProcessMessages();
    }
 }
 //---------------------------------------------------------------------------
 void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    DeleteCriticalSection(&Form1->CS);
    delete[] Thr;
    Application->Terminate();
}

__fastcall Pars::Pars(bool CreateSuspended, Parsing *copy, String Name)
    : TThread(CreateSuspended)
{
    this->clone = copy;
    this->clone->Thr(AnsiString(Name).c_str());
    this->Name = Name;
}
//---------------------------------------------------------------------------
void __fastcall Pars::Execute()
{
    Synchronize(&UpdateMemoYes);
    EnterCriticalSection(&Form1->CS);
        clone->SaveToFile();
    LeaveCriticalSection(&Form1->CS);
}
//---------------------------------------------------------------------------
void __fastcall Pars::UpdateMemoYes()
{
    Form1->Memo1->Lines->Add(clone->Get_proxy() + " iter " + Form1->iter + "  " + this->Name);
}

Synchronize(&UpdateMemoYes);

extern CRITICAL_SECTION CS;

Thr = new Pars *[count];
...
Thr[Form1->iter] = new Pars(true,c,NameThr);
...
delete[] Thr;