Удаление всей информации в StringGrid

 void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
for ( float J=1;J<StringGrid1->RowCount;J++)
   {
 AnsiString Strings (float J);
 
  float Clear (float J );

 for (int i = 0; i < StringGrid1->RowCount; i++)
        {
            StringGrid1->Rows[i]->Clear();
        }

for (int i = 0; i < StringGrid1->RowCount; i++)
        {
            StringGrid1->Rows[i+1]->Clear();
        }

for (int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
{
    StringGrid1->Rows[i]->Clear();
}

    for (int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
    {
        StringGrid1->Rows[i]->Clear();
    }
    StringGrid1->RowCount = StringGrid1->FixedRows + 1;
    // Ну, и потом выставить столько строк, сколько было изначально.

void __fastcall TForm1::CreateGrid()
{
    sg = new TStringGrid(this);
    sg->Parent = this;
    sg->Visible = true;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    sg->Cells[2][3] = "Yep1";
    sg->Cells[3][2] = "Yep2";
    sg->Cells[2000000][3000000] = "Yep";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    sg->Free();
    CreateGrid();
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    CreateGrid();
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   int Po = 1048559;
   for (int i=0;i<TrackBar1->Position;i++)
     StringGrid1->Cells[Po-i][Po-i] = "ABC"; 
}

void __fastcall TForm1::Button8Click(TObject *Sender)
{
    delete StringGrid1; StringGrid1=NULL;
   TStringGrid *StringGrid1 = new TStringGrid(this);
 StringGrid1->Parent = Form1;
 TResourceStream *rss = new TResourceStream(0,"TForm1",RT_RCDATA);
 TMemoryStream *mss = new TMemoryStream ;
 int dli = rss->Size ;
 char *buf = new char[dli+4];
 rss->ReadBuffer(buf,dli);
 
 char *buf2 = new char[dli+4];
 strcpy(buf2, "TPF0");
 for(int t=4,i=0x1D2;i<0x259;i++) buf2[t++]=buf[i];
 
 mss->WriteBuffer(buf2,138);
 mss->Position = 0;
 mss->ReadComponent(StringGrid1);
}

    delete StringGrid1; StringGrid1=NULL;
   TStringGrid *StringGrid1 = new TStringGrid(this);
 StringGrid1->Parent = Form1;
 TResourceStream *rss = new TResourceStream(0,"TForm1",RT_RCDATA);
 TMemoryStream *mss = new TMemoryStream ;
  mss->Write((char*)"TPF0",4);
  rss->Position = 0x1D2;
  mss->CopyFrom(rss,138);
  mss->Position = 0;
  mss->ReadComponent(StringGrid1);
    delete mss ; delete rss ;