Как правильно передать глобальную переменную в поток

UnicodeString nodeid;
int Index;

__fastcall All_log_host::All_log_host(bool CreateSuspended)
    : TThread(CreateSuspended)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
FreeOnTerminate = true;
EnterCriticalSection(&Form1->CS); //входим в критическую секцию
UnicodeString hostNode = HostForThread;        //получаем значения от глобальных переменных
IndexID = nodeid;
idIN = Index;
LeaveCriticalSection(&Form1->CS); /выходим из критической секции
Synchronize(&AI); //создаем динамические компоненты на форме
  for(int i=0; i<1; i++)   {
// вычисления
                                    }
Synchronize(&TreeView); // по завершению вычислений потока нужно удалить ранее созданные компоненты
}
//----------------------------------------------------------------------------

{
TPanel *PI = new TPanel(Form1);
TActivityIndicator *Indicator = new TActivityIndicator(PI);
TRect r = Form1->TreeView1->Items->Item[idIN]->DisplayRect(true);
PI->Parent = Form1->TreeView1;
PI->AutoSize = True;
PI->SetBounds(r.Right + 5,r.Top,0,0);
PI->BevelOuter = bvNone;
//PI->Tag = IndexID;
PI->Name = "PanelIndicator" + IndexID;
PI->Caption = "";
PI->Visible = True;
 
Indicator->Parent = PI;
Indicator->IndicatorType = aitRotatingSector;
Indicator->IndicatorSize = aisSmall;
Indicator->DoubleBuffered = True;
Indicator->Animate = True;
Indicator->Visible = True;
}

void __fastcall TMyThread::TreeView()
{
    for (int i = 0; i < Form1->TreeView1->ControlCount; i++)
    {
       if (Form1->TreeView1->Controls[i]->Name == "PanelIndicator" + IndexID); //ищу перебором по имени
       {
      // ShowMessage(Form1->TreeView1->Controls[i]->Name);
          delete(dynamic_cast<TPanel*>(Form1->TreeView1->Controls[i]));
       }
    }