Сохранение из нескольких компонентов StringGrid в один файл

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if (SaveDialog1->Execute())
    {
        int f;
        f = FileCreate(SaveDialog1->FileName);
        if (f != -1)
        {
            for (int i = 0; i < StringGrid1->RowCount; i++)
            {
                AnsiString st = StringGrid1->Rows[i]->DelimitedText + "\r\n";
                FileWrite(f, st.c_str(), st.Length());
            }
            FileClose(f);
        }
        else
        {
            ShowMessage("Îøèáêà äîñòóïà");
        }
    }
}

#include <memory>
...
void __fastcall AddData(TStringGrid *G, TStrings *X, int k)
{
  X->Add("Матрица " + IntToStr(k));
  for(int i = 0; i < G->RowCount; i++)
   X->Add(G->Rows[i]->CommaText);
  X->Add("");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L (new TStringList);
  static int k = 1;
  for(int i = 0; i < ControlCount; i++)
   if(Controls[i]->ClassNameIs("TStringGrid"))
    AddData(static_cast<TStringGrid*>(Controls[i]), L.get(), k++);
  L->SaveToFile("YourFileName.txt");
}