Создать несколько таблиц StringGrid по образу и подобию

TForm *VyvodForm = new TForm(this);
VyvodForm->Caption = "Результат";
for(int i=1; i<= StringGrid1->ColCount-1; i++)   //цикл с 1, так как имеется шапка
    {
        TStringGrid *a = new TStringGrid(VyvodForm);
        VyvodForm->a->RowCount = MainForm->ComboBox2->ItemIndex+3;
        VyvodForm->a->ColCount = MainForm->ComboBox1->ItemIndex+4;
                ...
         }

VyvodForm->a->RowCount = MainForm->StringGrid1>RowCount;
        VyvodForm->a->ColCount = MainForm->StringGrid1>ColCount ;

TForm *VyvodForm = new TForm(Application);
    VyvodForm->Caption = "Результат";
    VyvodForm->Height = this->Height;
    VyvodForm->Width = this->Width;
    for(int i=1; i<= StringGrid1->ColCount-1; i++)
    {
        TStringGrid *Grid = new TStringGrid(this);
        Grid->Parent = VyvodForm;
        VyvodForm->Grid->RowCount = StringGrid1->RowCount;
        VyvodForm->Grid->ColCount = StringGrid1->ColCount;
        VyvodForm->Grid->Height = StringGrid1->Height;
        VyvodForm->Grid->Width = StringGrid1->Width;
        for(int i=1;i<=StringGrid1->ColCount-2; i++)
            VyvodForm->Grid->Cells[i][0] = "x"+IntToStr(i);
        VyvodForm->Grid->Cells[Grid->ColCount-1][0] = "b";
        for(int i=1;i<=Grid->RowCount-1; i++)
            VyvodForm->Grid->Cells[0][i] = IntToStr(i)+ "ур.";
 
        for(int j=1; j<= StringGrid1->RowCount-1; j++)
        {
 
        }
    }
    VyvodForm->ShowModal();

#include <Vcl.Grids.hpp>

Grid->RowCount = StringGrid1->RowCount;