Создание динамических объектов в фреймах

void __fastcall TFrame1::New(void)
{
 for(int i=1;i<=n;i++) {
   RadioButton[i]= new TRadioButton(this);
   RadioButton[i]->Parent=this;
   RadioButton[i]->Name="RadioButton"+IntToStr(i);
   RadioButton[i]->Height=30;
   RadioButton[i]->Width=15;
   RadioButton[i]->Left=8;
   RadioButton[i]->Top=i*RadioButton[i]->Height+Form1->Frame11->Height/n;
   RadioButton[i]->Color=clBlue;
 
   Label[i]= new TLabel(this);
   Label[i]->Parent=this;
   Label[i]->Name="Label"+IntToStr(i);
   Label[i]->Height=30;
   Label[i]->Width=873;
   Label[i]->Left=24;
   Label[i]->Top=i*Label[i]->Height+Form1->Frame11->Height/n;
   Label[i]->Top=30;
   Label[i]->AutoSize=0;
   Label[i]->Transparent=0;
   Label[i]->WordWrap=1;
   Label[i]->Caption="sdasd";
 }
}

RadioButton[i]->Parent=Form1;
// or
RadioButton[i]->Parent=Frame1;

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Unit3.h"
//---------------------------------------------------------------------------
void __fastcall NewFObj(void);
class TForm2 : public TForm
{

// .CPP
void __fastcall TForm2::NewFObj(void)
{
...
// .H
private:    // User declarations
    void __fastcall NewFObj(void);

void __fastcall TForm1::LabelClick(TObject *Sender)
{
 //Что здесь писать чтобы оно поняла какой элемент нажат?
}
 
//в цикле создания Объектов
Label[i]->OnClick=LabelClick;

Label[i]->Name="Label"+IntToStr(i);

LabelClick

for(int i = 0; i < ComponentCount; i++) { 
  TLabel* label = dynamic_cast<TLabel*>(Components[i]); 
    if (label->OnClick && label->Name==Label1) 
      label->Click =LabelClick(); 
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=1;i<=n;i++) {
   RadioButton[i]= new TRadioButton(Form1);
   RadioButton[i]->Parent=Form1->Frame11;
   RadioButton[i]->Name="RadioButton"+IntToStr(i);
   RadioButton[i]->Height=30;
   RadioButton[i]->Width=15;
   RadioButton[i]->Left=8;
   RadioButton[i]->Top=i*Form1->Frame11->Height/n-30;
   RadioButton[i]->Color=clBlue;
 
   Label[i]= new TLabel(Form1);
   Label[i]->Parent=Form1->Frame11;
   Label[i]->Name="Label"+IntToStr(i);
   Label[i]->Height=30;
   Label[i]->Width=873;
   Label[i]->Left=24;
   Label[i]->Top=i*Form1->Frame11->Height/n-30;
   Label[i]->AutoSize=0;
   Label[i]->Transparent=0;
   Label[i]->WordWrap=1;
   Label[i]->Layout=tlCenter;
   Label[i]->Caption="sdasd";
   Label[i]->OnClick=LabelClick;
 
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabelClick(TObject *Sender)
{
 TLabel *lab = dynamic_cast<TLabel*>(Sender); // приводим TObject *Sender к типу TLabel 
 //assert(lab);
 for(int i=1;i<=n;i++) {
  if (((TLabel*)Sender)->Top==RadioButton[i]->Top) {
    RadioButton[i]->Checked=1;
    break;
  }
 }
}