Динамические потоки c обрабатываемой памятью

#include "WinThread.h"
 
LPVOID hf1,hf2,hf3;
iXml* Tr;
AnsiString str;
std::vector<GraphObj *> *GNO;
 
typedef struct Params
{
        int i,numnode;
        iXml *N;
        std::vector<GraphObj *> *GO;
 
}PARAMSTRUST;
 
iXml* VectorNode(iXml *N,vector<GraphObj *> *GO,int potoc,int num)
{
iXml *T;
GraphObj *Node = new GraphObj;
GNO->push_back(Node);
Node->LType->Caption = N->TypePrint();
N->GenRandomNum();
Node->LRandom->Caption = N->RandomPrint();
Node->Print(potoc,num);
      T = N->GetNode(0);
 return T;
};
 
void CALLBACK f2(void* param)
{
        while(1){
        SwitchToFiber(hf1);
        }
}
 
DWORD CALLBACK  third(LPVOID param)                     // этот поток обрабатывает структуру из объктов ввиде вектора
{
        PARAMSTRUST *P=(PARAMSTRUST *)param;
        hf1=ConvertThreadToFiber(NULL);
        hf2=CreateFiber(NULL,f2,hf1);
        while (P->N->TypePrint()!="Join")
        {
                if (P->N->TypePrint()=="Join")break;
                str = P->N->TypePrint();
                P->numnode++;
                P->N=VectorNode(P->N,P->GO,P->i,P->numnode);
                SwitchToFiber (hf2);
        }
        while(1)
        {
            SwitchToFiber (hf2);
        }
}
 
WinThread::WinThread(int i,iXml *N,vector<GraphObj *> *GNode)
{
        PARAMSTRUST *P=new PARAMSTRUST;
        P->i = i;
        P->N = N;
        P->GO = GNode;
        P->numnode = 0;
        threads=CreateThread(NULL,NULL,third,(LPVOID)P,NULL,NULL);
}

if(Tr->TypePrint()=="Fork"){
        while (i<Tr->CountIndex())
//        i=0;
        {
             WinThread *ProThread = new WinThread(i,Tr->GetNode(i),&NG);
             T.push_back(ProThread);
             i++;
        }
 }

//---------------------------------------------------------------------------
class TProThread : public TThread
{
private:
        bool bl;
        int NT,numnode;
        vector<GraphObj *> GO;
        iXml *N;
protected:
        void __fastcall Execute();
public:
        __fastcall TProThread(int Thread,iXml *N);
        void __fastcall ThreadProgress();
        iXml* TProThread::VectorNode(iXml *N,vector<GraphObj *> &GO,int potoc,int num);
};
//---------------------------------------------------------------------------
#endif
 
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "ThreadUnit.h"
#include "xmltree.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall TProThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
__fastcall TProThread::TProThread(int Thread,iXml *Node) : TThread(false)
{ NT = Thread;
  FreeOnTerminate = true;
  N = Node;
  bl = false;
}
//---------------------------------------------------------------------------
void __fastcall TProThread::Execute()
{while (!Terminated){
        Synchronize(ThreadProgress);
        if (bl == true) break;
}
}
//---------------------------------------------------------------------------
void __fastcall TProThread::ThreadProgress()
{
numnode++;
if (N->TypePrint()!="Join") N=VectorNode(N,GO,NT,numnode);
if (N->TypePrint()=="Join"){
bl = true;
}
}
//---------------------------------------------------------------------------
iXml* TProThread::VectorNode(iXml *N,vector<GraphObj *> &GO,int potoc,int num)
{
iXml *T;
GraphObj *Node = new GraphObj;
GO.push_back(Node);
Node->LType->Caption = N->TypePrint();
N->GenRandomNum();
Node->LRandom->Caption = N->RandomPrint();
Node->Print(potoc,num);
      T = N->GetNode(0);
return T;
};