Обращение ко всем объектам

Label?->Font->Color=clRed;

    for (int i=0;i<ComponentCount;i++)
     if (Components[i]->ClassNameIs("TLabel"))
      ((TLabel*)Components[i])->Font->Size = 18;

TList* LabelList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    LabelList= new TList;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0; i<10; ++i)
     {
         TLabel* LabelX= new TLabel(this);
         LabelX->Parent= this;
         LabelX->Caption= "Лэйба № "+String(i);
         LabelX->Top= LabelX->Height*i;
 
         LabelList->Add(LabelX);
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 for(int i=0; i<LabelList->Count; ++i)
     {
         TLabel* LabelX= static_cast<TLabel*>(LabelList->Items[i]);
         if(LabelX)
             {
                 LabelX->Transparent= false;
                 LabelX->Color= clRed;
             }
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete LabelList;
}
//---------------------------------------------------------------------------