Динамические Edit

           AnsiString EditNumStep="EditNumStep", EditOpName="EditOpName";
           EditNumStep=EditNumStep+y;  EditOpName=EditOpName+y;
 
           str1=strOpName+str15+"                "+str13;    ListBox1->Items->Add(str1);        EditNumStep->Text=str15;   EditOpName->Text=str13;
           str2=strOpStar+ADOTable1timeAtStart->Value;       ListBox1->Items->Add(str2);        EditOpStart1->Text=ADOTable1timeAtStart->Value;
           str3=strTReac1+ADOTable1tempAtStart->Value+" °C"; ListBox1->Items->Add(str3);        EditTReac11->Text=ADOTable1tempAtStart->Value;
           str4=strTComp1+ADOTable1compAtStart->Value+" °C"; ListBox1->Items->Add(str4);        EditTComp11->Text=ADOTable1compAtStart->Value;
           str5=strSValue+ADOTable1setupValue->Value;        ListBox1->Items->Add(str5+str16);  EditSValue1->Text=ADOTable1setupValue->Value;
           str6=strVakRea+ADOTable1presureAtStart->Value+" бар";   ListBox1->Items->Add(str6);  EditVakRea1->Text=ADOTable1presureAtStart->Value;
           str7=strOpeEnd+ADOTable1timeAtStop->Value;        ListBox1->Items->Add(str7);        EditOpeEnd1->Text=ADOTable1timeAtStop->Value;
           str8=strTReac2+ADOTable1tempAtStop->Value+" °C";  ListBox1->Items->Add(str8);        EditTReac21->Text=ADOTable1tempAtStop->Value;
           str9=strTComp2+ADOTable1compAtStop->Value+" °C";  ListBox1->Items->Add(str9);        EditTComp21->Text=ADOTable1compAtStop->Value;
           str10=strRValue+ADOTable1realValue->Value;        ListBox1->Items->Add(str10+str16); EditRValue1->Text=ADOTable1realValue->Value;
           str11=strSEvent+str14;                            ListBox1->Items->Add(str11);       EditSEvent1->Text=str14;
           ListBox1->Items->Add(str4free);
           n++; i++; y++;

EditNumStep->Text=str15;   EditOpName->Text=str13;

EditNumStep=str15;   EditOpName=str13;

ListBox1->Items->Add(str1);        EditNumStep->Text=str15;

for(int i = 0; i < ComponentCount; i++) {
  if (Components[i]->Name == "Edit" + AnsiString(i+1)) {
    TEdit *Edit = (TEdit *)FindComponent("Edit" + AnsiString(i+1));
    Edit->Text = str(i);;
  }
}

   for (int i=0;i<ComponentCount;i++)
    Memo1->Lines->Add(IntToStr(i)+" - "+Components[i]->Name) ;

for (int i=0;i<ComponentCount;i++)
  if ( Components[i]->ClassNameIs( "TEdit" ) )
    Memo1->Lines->Add(IntToStr(i)+" - "+Components[i]->Name) ;

  ADOTable1->First();
  while(ADOTable1->Eof!=true)             //проверка на конец файла
 {
    if(ADOTable1processID->Value == StrToInt(procID->Text))               // procID это Edit
        {
 
....
 
TEdit *boks1 = (TEdit *)FindComponent("EditNumStep" + AnsiString(i));
TEdit *boks2 = (TEdit *)FindComponent("EditOpName" + AnsiString(i));
 
....
 
boks1->Text=str15;   boks2->Text=str13;
 
....
 
i++;
        }
   ADOTable1->Next();          //перемещение на следующую запись
  }