Создать массив из TLabel с одинаковыми свойствами

void __fastcall TForm1::Button1Click(TObject *Sender)
{TLabel *LabelN[10];
 
    for(int i = 1; i <= 8; i++)
    {
      LabelN[i] = new TLabel(this);
      LabelN[i]->Parent = Form1;
      LabelN[i]->Caption = "myLabel"  + IntToStr(i);
      LabelN[i]->Color = random(clWhite); //предупреждение не опасно
      LabelN[i]->Tag = i ;
      LabelN[i]->OnClick = LabelNClick;
 
      LabelN[i]->ShowHint = true;//свойства по желанию любые
      LabelN[i]->Hint = "hint for " + LabelN[i]->Caption;
 
      LabelN[i]->AutoSize = false;
      LabelN[i]->Left = 20;
      LabelN[i]->Top = i * (33 + 10);
      LabelN[i]->Height = 33;
      LabelN[i]->Width = 120;
      
      delete [] LabelN;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::LabelNClick(TObject *Sender)
{TLabel *xLb;
 
    xLb = (TLabel*)Sender; 
    xLb->Left += 40;
}

void __fastcall TForm1::LabelNClick(TObject *Sender);

for(int i = 0; i <= 9; i++)

for(int i = 5789; i <= 5797; i++)

LabelN[i]->Top = (i - 5789)* (33 + 10);