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

int const count = 15;
TImage *Order[count];

for(int i = 0; i < count; i++){
        Order[i] = new TImage(AGS);
        Order[i]->Parent = OrderPlatform;
        Order[i]->Name = "idOrder" + (String)(i+1);
        Order[i]->Picture->LoadFromFile("C:\\Users\\Иван\\Desktop\\Диплом\\Art\\Menu\\Order\\BGorder Green.png");
 
        Order[i]->Top = 10 + i*115;
        Order[i]->Left = 10;
        Order[i]->Height = SIzeBGVork->Height;
        Order[i]->Width = SIzeBGVork->Width;
        Order[i]->Anchors = A;
 
        Order[i]->Center = true;
        Order[i]->Stretch = true;
 
        Order[i]->OnClick = Image1Click;
 
        PCountOrder->Caption = "Принято: " + IntToStr(count);
}

void __fastcall TAGS::FormClose(TObject *Sender, TCloseAction &Action)
{
 for (int i = 0; i < count; i++){
    delete Order[i];
    Order[i] = NULL;
  }
}

int const count = 15;
TImage *Order[count];

int const count = …

int count;

#include <vector>
 
int count;
 
count = (от куда вводим);
 
vector<int> Order;
 
for(int i = 0; i < count; i++){
 
       Order[i] = new TImage(AGS);
        Order[i]->Parent = OrderPlatform;
        Order[i]->Name = "idOrder" + (String)(i+1);
        Order[i]->Picture->LoadFromFile("C:\\Users\\Иван\\Desktop\\Диплом\\Art\\Menu\\Order\\BGorder Green.png");
 
        Order[i]->Top = 10 + i*115;
        Order[i]->Left = 10;
        Order[i]->Height = SIzeBGVork->Height;
        Order[i]->Width = SIzeBGVork->Width;
        Order[i]->Anchors = A;
 
        Order[i]->Center = true;
        Order[i]->Stretch = true;
 
        Order[i]->OnClick = Image1Click;
 
        PCountOrder->Caption = "Принято: " + IntToStr(count);
}

vector<TImage> Order;
int count = Edit1->Text.ToInt;
TImage *I;
for(int i = 0; i < count; i++) {
  I = new TImage(AGS);
  ...
  Order.push_back(I);
}

//------
private:
  std::vector<TImage*> imgOrder;
  
  
//------------------
OnFormCreate..
{
  TImage* imgImage = new TImage(AGS);
  
  imgImage->Parent = OrderPlatform; 
  imgImage->Name = Format(_TEXT("idOrder%d"), i+1);
  imgImage->Top = 10 + (i*115);
  imgImage->Left = 10;
  imgImage->Height = SIzeBGVork->Height;
  imgImage->Width = SIzeBGVork->Width;
  imgImage->Anchors = A;
  
  imgImage->Center = true;
  imgImage->Stretch = true;
  
  imgImage->OnClick = Image1Click;
  
  imgOrder.push_back(imgImage);
  
  /* а по хорошему тебе надо LoadStr из ресурса */
  PCountOrder->Caption = Format(_TEXT("Принято: %d"), count);
} 
 
 
/*
  _TEXT() это макро и должно использоваться везде где у тебя есть string ""
  _TEXT() преобразовывает "string" в L"string" если надо
 
 
  Все стринги у тебя должны быть в ресурс файле .RC и должен быть header .H c ID ресурсов.
  Так чтобы если тебе надо стринг ты берёшь его из ресурса....
 
  Log->Entry(2, Format(String::LoadStr(IDS_LOOKING_FOR_STYLES_IN).с_str(), stylesDir));
 
  эквивалент
 
  Log->Entry(2, Format(_TEXT("Looking for styles in %s"), stylesDir));
 
  но с фишкой... Я могу изменить текс хоть на китайский без изменения кода. 
*/
 
 
//----------------------------------------
OnFormDestroy..
{
  // ВСЕГДА УДАЛЯЙ ТО ЧТО ТЫ СОЗДАЛ, НЕ СЛУШАЙ НИКОГО ПРО АВТО УДАЛЕНИЕ
  // ЕСЛИ БЫЛ operator new 
  // ДОЛЖЕН БЫТЬ operator delete
  // а если не будет, будешь дело иметь с утечкой памяти!!!
  
  
  while(imgOrder.empty() == false) {
      delete imgOrder.back();
      imgOrder.pop_back();
  }  
}

FileExists(FindFirst(ExtractFilePath(Application->ExeName) + "\\tdata\\user_data\\*.png", faAnyFile, Folder)
ExtractFilePath(Application->ExeName) + "\\tdata\\user_data\\" + Folder.Name
FindClose(Folder);