Сохранение динамических компонентов

#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(Component);
  TFileStream *Fs = new  TFileStream(FileName,fmCreate);
  Ms->Position = 0;
  ObjectBinaryToText(Ms,Fs);
  delete Fs,Ms;
  }
 
  void LoadComponent(TComponent* Component,String FileName)
  {
  TFileStream *Fs = new TFileStream(FileName,fmOpenRead);
  TMemoryStream *Ms = new TMemoryStream();
  ObjectTextToBinary(Fs,Ms);
  Ms->Position = 0;
  Ms->ReadComponent(Component);
  delete Fs,Ms;
  }
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
my::SaveComponent(Form1, "Form1.txt"); 
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 for(;this->ComponentCount!=0;) delete this->Components[0] ;
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
for(;this->ComponentCount!=0;) delete this->Components[0] ;
 
 my::LoadComponent(Form1, "Form1.txt");
}

TIniFile *ini = new TIniFile("sets.ini");
ini->WriteInteger("labels", "label1_left", label1->Left);

const int M=5,N=5;
 
struct TMyPage
{
 std::string pagename;  // Имя страницы 
 std::string table[M][N]; // Таблица
 
 void assign(TStringGrid *SG);//  Метод  для записи данных из StringGrid
 void show(TStringGrid *SG);//  Метод  для вывода данных в StringGrid
 
 friend ostream& operator<<(ostream &stream,TMyPage Page); // Для записи и чтения структуры в файл
 friend istream& operator<<(istream &stream,TMyPage &Page);
} 
//.... 
struct TMyBook: public  std::vector<TMyPage> Pages;
{
 void save_to_file(std::string file_name);     // сохранение в файл
 void load_from_file(std::string file_name);// загрузка из файла
}