//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;

TEdit* pe[ 6 ]; //array of pointers to 6 TEdit Controls
const int EditBoxCount =  6 ; //number of TEdit controls

TStringList* ComboNames = new TStringList; //list of ComboBox-names
TComponentList* Combos = new TComponentList; //list of ComboBox-components
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int t =  40 , m =  0 ;  //variables for TEdit Top coordinate and name sufix
TComboBox *Cbx;     //variable for ComboBox component
int CbxCount = Edit2->Text.ToInt(); //number of components to create
AnsiString NamePrefix = "MyCombo";

Combos->Clear(); //clear the list of ComboBox-components

//Creating desired number of ComboBoxes...
for (CbxCount; CbxCount> 0 ; CbxCount--){
 Cbx = new TComboBox(this);
 Cbx->Name = NamePrefix + IntToStr(m+= 1 );
 Cbx->Top = t+= 25 ;
 Cbx->Left =  192 ;
 Cbx->Width =  145 ;
 Cbx->Parent = this;
 ComboNames->Add(Cbx->Name); //adds the name of the created control to the list
 Combos->Add(Cbx); //adds the created ComboBox to list of components
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int t =  40 , l =  8 ; //variables for TEdit Top and Left coordinates
 const char* pszNamePrefix = "MyEdit"; //temporary name-prefix variable

//clear TEdit array
   for (int i= 0 ;i<EditBoxCount;i++)
    if (pe[i]) delete pe[i];

//creating TEdit controls
    for (int i= 0 ;i<EditBoxCount;i++)
    {
        pe[i] = new TEdit(this);
        pe[i]->Name = pszNamePrefix + IntToStr(i+ 1 );
        pe[i]->Left = l;
        pe[i]->Top = t+= 25  ;
        pe[i]->Parent = this;
    }

//destroy name-prefix variable
    delete pszNamePrefix;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 //destroy the list of ComboBox-names
  delete ComboNames;

 //destroy the list of ComboBox-controls
  delete Combos;

  //clear TEdit array
  for (int i= 0 ;i<EditBoxCount;i++)
    if (pe[i]) delete pe[i];
}
//---------------------------------------------------------------------------

object Form1: TForm1
  Left =  286 
  Top =  127 
  Width =  365 
  Height =  640 
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = - 11 
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch =  96 
  TextHeight =  13 
  object Button2: TButton
    Left =  192 
    Top =  4 
    Width =  142 
    Height =  30 
    Caption = 'Create             ComboBoxes'
    TabOrder =  1 
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left =  236 
    Top =  8 
    Width =  25 
    Height =  21 
    BevelInner = bvNone
    BevelOuter = bvNone
    TabOrder =  0 
    Text = '2'
  end
  object Button1: TButton
    Left =  8 
    Top =  4 
    Width =  127 
    Height =  28 
    Caption = 'Create 6 EditBoxes'
    TabOrder =  2 
    OnClick = Button1Click
  end
end

//---------------------------------------------------------------------------

#ifndef Unit_1H
#define Unit_1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TEdit *Edit2;
        TButton *Button2;
        TButton *Button1;
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall FormDestroy(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

...
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;

void __fastcall MyOnClick(TObject *Sender);

TStringList* ComboNames = new TStringList; //list of ComboBox-names
...

...
void __fastcall MyOnClick(TObject *Sender)
{
   ShowMessage("Hello World");
};
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
ShowMessage("Hello world");
}
//---------------------------------------------------------------------------
...