Запись из StringGrid'a в файл

fstream fout;
fout.open("inmus.txt");
for (int i = 1; i < StringGrid1->RowCount; i++)        {
                fout<<"\n";
        for (int j = 0; j < StringGrid1->ColCount; j++) {
    fout<<(StringGrid1->Cells[j][i]).c_str() <<"\t" ;
        } 
 }

  #include <memory>
  ...
  std::auto_ptr<TStringList> L (new TStringList); //создали StringList
  for(int i = 0; i < StringGrid1->RowCount; i++) //загрузили в него данные из StringGrid
    L->Add(StringGrid1->Rows[i]->CommaText);
  L->SaveToFile("inmus.txt"); //Сожранили в файл

  #include <memory>
  ...
  std::auto_ptr<TStringList> L (new TStringList); //Создали StringList
  L->LoadFromFile("inmus.txt"); //Загрузили в него содержимое файла
  for(int i = 0; i < StringGrid1->RowCount; i++) //очистили StringGrid перед загрузкой
    StringGrid1->Rows[i]->Clear();
  StringGrid1->RowCount = L->Count; //установили число строк StringGrid по числу строк файла
  for(int i = 0; i < L->Count; i++) //Заполнили StringGrid
    StringGrid1->Rows[i]->CommaText = L->Strings[i];

    std::auto_ptr<TStringList> L (new TStringList); // создали StringList
    for(int i = 0; i < StringGrid1->RowCount; i++) // загрузили в него данные из StringGrid
    {
        StringGrid1->Rows[i]->Delimiter = '\t';
        L->Add(StringGrid1->Rows[i]->DelimitedText);
    }
    L->SaveToFile("inmus.txt"); // Сохранили в файл

for(int i = 0; i < StringGrid1->RowCount; i++)
  {
      StringGrid1->Rows[i]->Delimiter = '\t';
      L->Add(StringGrid1->Rows[i]->DelimitedText);
   }