Передача цвета строк и цвета текста из stringgrid в excel и обратно

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    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;
}

if (SaveDialog1->Execute())
    {
        WideString str;
        Variant Ex = CreateOleObject("Excel.Application");
        Ex.OlePropertySet("Visible", false);
        Ex.OlePropertySet("SheetsInNewWorkbook", 1);
        Ex.OlePropertyGet("WorkBooks").OleFunction("Add", 1);
        Variant Cell;
        Variant WorkSheets = Ex.OlePropertyGet("WorkSheets", 1);
        WorkSheets.OleProcedure("SaveAs", StringToOleStr(SaveDialog1->FileName));
        for (int i = 0; i < StringGrid1->RowCount; ++i)
            {
                for (int j = 1; j < StringGrid1->ColCount; ++j)
                    {
                        Cell = WorkSheets.OlePropertyGet("Cells", i + 2, j + 41);
                        Cell.OlePropertySet("Value", WideString(StringGrid1->Cells[j][i]));
                    }
            }
        WorkSheets.OleProcedure("Save");
        Ex.OleProcedure("Quit");
    }

Ex.OlePropertyGet("Workbooks").OleFunction("Open", StringToOleStr(OpenDialog1->FileName));

void __fastcall TForm1::OpenDialog1CanClose(TObject *Sender, bool &CanClose)
{
    TOpenDialog *od = static_cast<TOpenDialog*>(Sender);
    CanClose = od->Filter.Pos(ExtractFileExt(od->FileName)) > 0;
}

if (SaveDialog1->Execute())
    {   Variant app, Rang, vCell, sheet, cell;
            app = CreateOleObject("Excel.Application");
            app.OlePropertySet("Visible",0);
            app.OlePropertySet("SheetsInNewWorkbook", 1);
            app.OlePropertyGet("WorkBooks").OleFunction("Add", 1);
            sheet = app.OlePropertyGet("WorkSheets", 1);
            //-----ВСЯКОЕ РАЗНОЕ
            Variant wbs = app.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1);
            try
                {
                           wbs.OleProcedure("SaveAs", StringToOleStr(SaveDialog1->FileName));
                 }
            catch (...)
                {
                            Form1->Message0( "Error open Microsoft Excel!" ,
                         "Error",MB_OK+MB_ICONERROR);
                 }
            //  Form39->Visible = 1;
                wbs.OleProcedure("Save");
        app.OleProcedure("Quit");
         }