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

class PRODUCT
{
   char name[16];
   float price;
   float size;
   float weight;
};
 
class SKLAD
{
  int n_sklad;
  float size_polka;
  int sum_polka;
  int sum_stillage;
};
 
int a=0;
int b=0;
 
void __fastcall TForm1::LoadingClick(TObject *Sender)
{
FILE* file1 = fopen("Product.txt", "r");
 if(a!=0) delete product;
   fscanf(file1, "%d\n", &a);
   product = new PRODUCT[a];
   int i=0;
   while(!feof(file1))
   {
    fscanf(file1,"%s %f %f %f\n", &product[i].name, &product[i].price, &product[i].size, &product[i].weight);
    TListItem *Item = ListView1->Items->Add();
    Item->Caption = product[i].name;
    Item->SubItems->Add(product[i].price);
    Item->SubItems->Add(product[i].size);
    Item->SubItems->Add(product[i].weight);
    i++;
   }
   fclose(file1);
 
FILE* file2 = fopen("Sklad.txt", "r");
 if(b!=0) delete sklad;
   fscanf(file2, "%d\n", &b);
   sklad= new SKLAD[b];
   i=0;
   while(!feof(file2))
   {
    fscanf(file2, "%d %f %d %d\n", &sklad[i].n_sklad, &sklad[i].size_polka, &sklad[i].sum_polka, &sklad[i].sum_stillage);
    TListItem *Item = ListView2->Items->Add();
    Item->Caption = sklad[i].n_sklad;
    Item->SubItems->Add(sklad[i].size_polka);
    Item->SubItems->Add(sklad[i].sum_polka);
    Item->SubItems->Add(sklad[i].sum_stillage);
    i++;
   }
   fclose(file2);
}