Динамическое изменение имени объекта

Form1->Panel1->Visible = false;
 
NameObject = "Panel1";
Form1->NameObject->Visible = false;

HWND hWnd;
hWnd = Form1->Handle;
char *STR="New";
SetWindowText(hWnd,STR);

HWND hWnd;
hWnd = Form1->Panel1->Handle;
char *STR="New";
SetWindowText(hWnd,STR);
Form1->Panel1->Refresh();

...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TransmitBNumber(1);
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TransmitBNumber(2);
}
...

void TransmitBNumber(int i)
{
//какие-то действия получения Shape[i]
Form1->Shape[i]->Visible = true;
}

AnsiString NameObj;
NameObj = (Form1->Edit1->Text);
TShape* SenderSh;
SenderSh->Name = NameObj;
SenderSh->Visible = true;

TShape *shapes[] = { Shape1, Shape2, Shape3, Shape4 };
// ...
for(size_t i = 0; i < sizeof(shapes) / sizeof(shapes[0]); i++){
  shapes[i]->Visible = true;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1->Caption = " New FORM1 ";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1->Panel1->Caption = " New PANEL1";
}

    for(int i=0;i<5;i++){
        Panel[i] = new TPanel(this);
        Panel[i]->Parent = Form1;
        Panel[i]->Show();
        Panel[i]->Left = 10;
        Panel[i]->Width = 100;
        Panel[i]->Top = Panel[i]->Width/2*i+5;
        Panel[i]->Tag = i;
        Panel[i]->Name="Panel"+(AnsiString)i;
        Panel[i]->Caption="Panel"+(AnsiString)i;
    }

void Form1::Funk(int i)
{
    TLabel[i]->Caption="New Caption Label"+IntToStr(i);
}

    TLabel[i]->Caption="New Caption Label"+IntToStr(i);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     TObject *mO;
     int p=0;
     for (int i=1;i<99;i++)
       if (((TButton *)Sender)->Name == "Button"+IntToStr(i))
       {  p=i; break;  }
     if (p>0)
       if ((mO=FindComponent("Panel"+IntToStr(p)))>0)
          ((TPanel *)mO)->Color = clGray ;
}

void __fastcall TFormTabl::BMesto1Click(TObject *Sender)
{
CaptureBName(Sender);
}

void __fastcall TFormTabl::CaptureBName(TObject *Sender)
{
FormPlan->Show(); // Показать форму, содержащую картинку с секторами.
 
int mm=0;
 
     TObject *mO; // Указатель на переменную типа объект (заготовка для любого объекта)
     int p=0;
     for (int i=1;i<VsegoKnopok;i++)
       if (((TButton *)Sender)->Name == "BMesto"+IntToStr(i)) // Если имя указателя на объект типа кнопка равно BMesto[i]
       {  p=i; break;  } 
     if (p>0) // Если есть хоть одно совпадение
       if ((mO=FindComponent("LMesto"+IntToStr(p)))>0) // Найти объект с названием LMesto[p] и поместить в mO указатель на него.
         { 
         while(mm<((TLabel *)mO)->Caption.Length()) // У меня рядом с каждой кнопкой расположен лейбл, в котором написано название нужного сектора
                                                    // вида A/1, A/2, B/1, D,12 и т.д. Из них я парсю название нужного сектора (Shape-а) убирая слеш. 
           {                          //mm++;
           if( (((TLabel *)mO)->Caption[++mm]!='/') )
             {
             sKovsh[p].NameSector += ((TLabel *)mO)->Caption[mm]; // В структуре sKovsh храню в том числе и имя сектора.
             }
           }
           sKovsh[p].BeginFlash = true; // Так же в структуре лежит флаг активации подсветки
         }
       }
}

.h
 
class ThreadPosition : public TThread
{
private:
        void __fastcall LoopPosition();
protected:
        void __fastcall Execute();
public:
        __fastcall ThreadPosition(bool CreateSuspended);
        TObject *mO1; // Опять пытаюсь создать указатель
};

.cpp
 
void __fastcall ThreadPosition::Execute()
{
do
{
 Synchronize(LoopPosition);
}
while(!Terminated);
}
 
void __fastcall ThreadPosition::LoopPosition()
{
for(int n=1; n<VsegoKnopok; n++) // Перебор всех кнопок
{
  if(FormTabl->sKovsh[n].BeginFlash) // Если n-ная кнопка нажата
    {
         ((TShape *)mO1)->Name = FormTabl->sKovsh[n].NameSector; // В FormTabl объявлена структура sKovsh
         ((TShape *)mO1)->Visible = !(((TShape *)mO1)->Visible);
    }
}

  if(FormTabl->sKovsh[n].BeginFlash) // Если n-ная кнопка нажата
    {
         ((TShape *)mO1)->Name = FormTabl->sKovsh[n].NameSector; // В FormTabl объявлена структура sKovsh
         ((TShape *)mO1)->Visible = !(((TShape *)mO1)->Visible);
    }

  if(FormTabl->sKovsh[n].BeginFlash)
    {
       if ((mO1=FindComponent(FormTabl->sKovsh[n].NameSector))>0)
         //((TShape *)mO1)->Name = FormTabl->sKovsh[n].NameSector;
         ((TShape *)mO1)->Visible = !(((TShape *)mO1)->Visible);
    }

mO1 = FormTabl->FindComponent( FormTabl->sKovsh[n].NameSector )

size_t count = 0;
for( size_t i = form->ComponentCount - 1; i >= 0; --i ) {
  if ( form->Components[i]->ClassNameIs( "TLabel" ) ) ++count;
}
ShowMessage( String( count ) + " labels counted." );