Записать из StringGrid в Excel

void __fastcall TForm1::Button3Click(TObject *Sender)
{
std::auto_ptr<TStrings> SaveStrings( new TStringList());
const int col_count =StringGrid1->ColCount;
        for (int i=0;i<=StringGrid1->RowCount;i++)
                {for (int j=0;j<=StringGrid1->ColCount;j++)
                        {
                          SaveStrings->AddStrings(
                                StringGrid1->Cols[i]);
                        }
       SaveStrings->SaveToFile("Shema.xls");
                }
}

WideString str;
TStringList *sl = new TStringList;
        for(int i = 0 ; i<StringGrid1->RowCount ;i++)
                {for(int j = 0; j< StringGrid1->ColCount;j++)
                        str +=StringGrid1->Cells[j][i]+ "\t";
                        sl->Add(Trim(str));
                        str = "\n\r" ;
                }
        if (SaveDialog1->Execute())
        sl->SaveToFile(SaveDialog1->FileName);
        delete sl;