procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i :=  1  to  20  do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left :=  10 ;
      Top := i *  20 ;
      Parent := self;
    end;
  end;
end;

const int EditBoxCount =  20 ;

const int LeftCoordinate =  10 ;
TForm1 *Form1;
TEdit* pe[ 20 ];

void __fastcall TForm1::FormCreate(TObject *Sender)

{
    const char* pszNamePrefix =  "MyEdit" ;
    for (int i= 0 ;i<EditBoxCount;i++)
    {
        pe[i] = new TEdit(this);
        pe[i]->Name = pszNamePrefix + IntToStr(i+ 1 );
        pe[i]->Left = LeftCoordinate;
        pe[i]->Top = i*EditBoxCount;
        pe[i]->Parent = this;
    }

    delete pszNamePrefix;
}

void __fastcall TForm1::FormDestroy(TObject *Sender)

{
  for (int i= 0 ;i<EditBoxCount;i++)
    delete pe[i];
}