StringGriв + PageControl - динамическое появление, и сохранение!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if (ComboBox1->ItemIndex == 0) {
        int i;
        TTabSheet *pTabSheet = new TTabSheet(PageControl2);
        pTabSheet->PageControl = PageControl2;
        pTabSheet->Caption = LabeledEdit1->Text;
        
        LabeledEdit1->Clear();
        
 
        TStringGrid *StringGrid = new TStringGrid (pTabSheet);
        StringGrid->Parent = pTabSheet;
        StringGrid->FixedRows = 0;
        StringGrid->ColCount=100;
        StringGrid->RowCount=40;
        StringGrid->Width=pTabSheet->Width;
        StringGrid->Height=pTabSheet->Height;
        StringGrid->Options<<goEditing;
        for (i = 1; i < 100; i++)
        {StringGrid->ColWidths[i]=20;}
        
        
        
 }
 
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1_Journal.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int number = 50;
 
 
namespace my
 {
 void SaveComponent (TComponent* Component,String FileName)
  {
  TMemoryStream *Ms = new TMemoryStream();
  Ms->WriteComponent(Form1);
  TFileStream *Fs = new  TFileStream("Form1.txt",fmCreate);
  Ms->Position = 0;
  ObjectBinaryToText(Ms,Fs);
  delete Fs,Ms;
  }
 
  void LoadComponent(TComponent* Component,String FileName)
  {
  TFileStream *Fs = new TFileStream("Form1.txt",fmOpenRead);
  TMemoryStream *Ms = new TMemoryStream();
  ObjectTextToBinary(Fs,Ms);
  Ms->Position = 0;
  Ms->ReadComponent(Form1);
  delete Fs,Ms;
  }
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 my::LoadComponent(Form1,"Form1.txt"); }
void __fastcall TForm1::Button2Click(TObject *Sender)
{
my::SaveComponent(Form1,"Form1.txt");}

//---------------------------------------------------------------------------
void __fastcall TFSaveComponent::bLoadClick(TObject *Sender)
{
for(;this->ComponentCount!=0;) delete this->Components[0] ;  // !!!!!!
 
my::LoadComponent(FSaveComponent,"FSaveComponent.txt");
}
//---------------------------------------------------------------------------

delete pTabSheet, StringGrid;