Вывод и загрузка из файла в StringGrid

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList *slist = new TStringList;
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)    //параметры таблицы
    : TForm(Owner)
{
TableShoppe->Options
<<goEditing
<<goTabs;
TableShoppe->Cells[0][1]="Наименование";
TableShoppe->Cells[1][1]="Пнд";
TableShoppe->Cells[2][1]="Вт";
TableShoppe->Cells[3][1]="Срд";
TableShoppe->Cells[4][1]="Чтв";
TableShoppe->Cells[5][1]="Птн";
TableShoppe->Cells[6][1]="Сб";
TableShoppe->Cells[7][1]="Вск";
TableShoppe->Cells[8][1]="Всего, шт.";
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)    //выход
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::TableShoppeSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)             //запрет ввода в последнюю колонку
{
   if(ACol == 8) CanSelect=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)    //сумма ячеек
{
int sum = 0;
for (int j = 2; j < TableShoppe->RowCount; j++)  {
  for (int i = 1; i < TableShoppe->ColCount-1; i++) {
 
         if ( TableShoppe->Cells[i][j].Length()!=0) {
          sum = sum + StrToInt(TableShoppe->Cells[i][j]);
  }
         }
  TableShoppe->Cells[8][j] = IntToStr(sum);
  sum = 0;
  }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)    //добавить строку
{
TableShoppe->Row = TableShoppe->RowCount-1;
TableShoppe->RowCount++;
TableShoppe->Row = TableShoppe->RowCount-1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TableShoppeKeyPress(TObject *Sender, char &Key)
{
if (TableShoppe->Col!=0) {                       //проверка введённого значения
 
 
if(!((Key >= '0' && Key <= '9') || Key == VK_RETURN)) {
MessageDlg("Возможно, вы ввели букву вместо цифры. Попробуйте ещё раз!",
mtError, mbOKCancel, 0);
Key = '\0';
}
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{                                                              //выгрузка в файл
for(int i=2; i<TableShoppe->RowCount; i++){
slist->Add(TableShoppe->Rows[i]->DelimitedText);
}
slist->SaveToFile("new.rdt");
delete slist;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
if (FileExists("new.rdt")) {                                      //загрузка из файла
 
 
slist->LoadFromFile("new.rdt");
for(int i=0; i<slist->Count; i++)
{
 if(TableShoppe->RowCount < i+1) TableShoppe->RowCount++;
 TableShoppe->Rows[i+2]->DelimitedText = slist->Strings[i];
}
delete slist;
}
}
//---------------------------------------------------------------------------