Данные программы (сохранение и автоматическая загрузка при запуске)

#include <memory>
...
//---------------------------------------------------------------------------
//Функция сохранения Грида в файл
void __fastcall TForm2::GridToFile(TStringGrid *G)
{
  if(fName.Trim().Length() == 0)
   if(!SaveDialog1->Execute()) return;
  fName = SaveDialog1->FileName;
  std::auto_ptr<TStringList> L (new TStringList);
  for(int i = 0; i < G->RowCount; i++)
   L->Add(G->Rows[i]->CommaText);
  L->SaveToFile(fName);
}
//---------------------------------------------------------------------------
//Функция загрузки Грида из файла
void __fastcall TForm2::GridFromFile(TStringGrid *G)
{
  std::auto_ptr<TStringList> L (new TStringList);
  L->LoadFromFile(fName);
  G->RowCount = L->Count;
  G->ColCount = L->Strings[0].Length() - (StringReplace(L->Strings[0], ",", "", TReplaceFlags() << rfReplaceAll)).Length() + 1;
  for(int i = 0; i < L->Count; i++)
   G->Rows[i]->CommaText = L->Strings[i];
}
//---------------------------------------------------------------------------
//сохранение
void __fastcall TForm2::btnSaveClick(TObject *Sender)
{
  GridToFile(StringGrid1);
}
//---------------------------------------------------------------------------
//загрузка с выбором нужного файла
void __fastcall TForm2::btnLoadClick(TObject *Sender)
{
  if(!OpenDialog1->Execute()) return;
  else
   {
     fName = OpenDialog1->FileName;
     GridFromFile(StringGrid1);
   }
}

class TForm2 : public TForm
{
__published:    // IDE-managed Components
    TStringGrid *StringGrid1;
    TOpenDialog *OpenDialog1;
    TButton *btnSave;
    TButton *btnLoad;
    TSaveDialog *SaveDialog1;
    void __fastcall btnSaveClick(TObject *Sender);
    void __fastcall btnLoadClick(TObject *Sender);
private:    // User declarations
    String fName; // <<==
    void __fastcall GridToFile(TStringGrid *G); // <<==
    void __fastcall GridFromFile(TStringGrid *G); // <<==
public:     // User declarations
    __fastcall TForm2(TComponent* Owner);
};