Динамическое создание кнопок

 TSpeedButton *lbl;
 
lbl=new TSpeedButton(this);
lbl->Parent=this;
lbl->Caption=AnsiString("Knopka")+AnsiString(i);
lbl->Top=30;
lbl->Left=10;

class cLinks
  {
  public:
    cLinks(void)
      {
      Count=0;
      TStringList *LinksList = new TStringList;
      TStringList *FileList = new TStringList;
      };
    int Count;
    TStringList *LinksList; 
    TStringList *FileList;  
    //HICON iconheader[1000];
 
    ~cLinks()
      {
      delete LinksList;
      delete FileList;
      };
  protected:
  private:
  };

void __fastcall TForm2::Button1Click(TObject *Sender)
{
cLinks Links;
Links.Count=56;

// заголовочный файл:
#include <map>
 
using namespace std;
 
class TForm1 : public TForm
{
...
...
private:    // User declarations
        map <int, TImage*> ImMap; // индексированный контейнер для хранения указателей
        void __fastcall ImageDblClick (TObject *Sender); // самописная ф-я - событие для динамических компонентов
public:    
...
};
 
// в *.cpp модуле формы:
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TImage *img;
  for (int i = 0; i < 10; i ++) // создаем 10 одинаковых объектов типа TImage
       {
          img = new TImage (this);
          img->Parent = this;
          img->Width = 100;
          img->Height = 100;
          img->Top = 100*i+10;
          img->Canvas->Rectangle(0,0, 100, 100); 
          img->OnDblClick = ImageDblClick; // присваиваем самописный обработчик события
       }
}
// --------------------------------------------------------------------------------------------
// свой обработчик события
void __fastcall TForm1::ImageDblClick(TObject *Sender)
{
   TImage *img = dynamic_cast<TImage*>(Sender); // приводим TObject *Sender к типу TImage 
   if (!img) return;
// делаем с img что угодно
}
// --------------------------------------------------------------------------------------------
// удаление динамических компонентов 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  for (unsigned int j = 0; j<ImMap.size(); j++)
      delete ImMap[j];
  ImMap.clear();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TImage *img;
  for (int i = 0; i < 10; i ++) // создаем 10 одинаковых объектов типа TImage
       {
          img = new TImage (this);
          img->Parent = this;
          img->Width = 100;
          img->Height = 100;
          img->Top = 100*i+10;
          img->Canvas->Rectangle(0,0, 100, 100); 
          img->OnDblClick = ImageDblClick; // присваиваем самописный обработчик события
          ImgMap[i] = img;
 
       }
}

cLinks* Links = new cLinks();   
Links->Count=56;

class cLinks
  {
  public:
    cLinks(void)
      {
      Count=0;
      LinksList = new TStringList;
      FileList = new TStringList;
      };
    int Count;
    TStringList *LinksList;
    TStringList *FileList;
    //HICON iconheader[1000];
 
    ~cLinks()
      {
      delete LinksList;
      delete FileList;
      };
  protected:
  private:
  };

// свой обработчик события
void __fastcall TForm1::ImageDblClick(TObject *Sender)
{
   TImage *img = dynamic_cast<TImage*>(Sender); // приводим TObject *Sender к типу TImage 
   if (!img) return;
// делаем с img что угодно
}

Form1->ImageList2->GetBitmap(IconNum,img->Glyph);

TImage *img = dynamic_cast<TImage*>(Sender);

//заголовочный файл .h
class TForm1 : public TForm
{
    public:
     TSpeedButton** MySBtn;
            void __fastcall BoxClick(TObject *Sender);

//файл .cpp
void MyFunc () {
 int n = 10;//создаем 10 кнопок
 MySBtn = new TButton* [n];
 
 for (int z = 0; z < n; z++) {
  MySBtn[z] = new TSpeedButton(this);
  MySBtn[z]->Parent = this;
  MySBtn[z]->Caption = z;
  MySBtn[z]->Height = 65;
  MySBtn[z]->Width = 65;
  MySBtn[z]->OnClick = &Form1->BoxClick;
  MySBtn[z]->BringToFront();
 
  char buff[4];
  sprintf(buff, "a%d", i);
  MySBtn[z]->Name = buff;
 
  MySBtn[z]->Show();
 }
 
void __fastcall TForm1::BoxClick(TObject *Sender) {
   if (Sender == MySBtn[0]) {
    //действия
   }else //и т.д.
}

const i=10;
TButton *MyButton[i];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int k;
for (k=0; k<3; k++)
        {
        MyButton[i] = new TButton(this);
        MyButton[i]->Parent=Form1;
        MyButton[i]->Width = 20;
        MyButton[i]->Height = 20;
        MyButton[i]->Left = i*k;
        MyButton[i]->Top = i*k;
 
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete *MyButton;
}