Сравнение строк в двух Excel-файлах

String In9=""; String Out13="";
    for(int i9=0; i9<StringGrid9->RowCount;i9++)
    {
        for(int ii9=0; ii9<35;ii9++)
            {
                In9 += StringGrid9->Cells[ii9][i9];
            }
        for(int i13=0; i13<StringGrid13->RowCount;i13++)
            {
                for(int ii13=0; i13<35;ii13++)
                    {
                        Out13 += StringGrid13->Cells[ii13][i13];
                    }
                 if(In9==Out13)
                     {
                       StringGrid13->Cells[36][i13]=StringGrid9->Cells[36][i9];
                       StringGrid13->Cells[37][i13]=StringGrid9->Cells[37][i9];
                       StringGrid13->Cells[38][i13]=StringGrid9->Cells[38][i9];
                       StringGrid13->Cells[39][i13]=StringGrid9->Cells[39][i9];
                       StringGrid13->Cells[40][i13]=StringGrid9->Cells[40][i9];
                       StringGrid13->Cells[41][i13]=StringGrid9->Cells[41][i9];
                     }
                 Out13="";
            }
        In9="";
    }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool status =true;//указатель того что таблицы равны
 
//теперь начинаем сравнение таблиц
for(int i=1;i<41;++i)
   for(int j=1;j<41;++j)
       if(StringGrid1->Cells[j][i]!=StringGrid2->Cells[j][i])  //не сошлись, значит херово
         {
             status =false;
             break;
         }
//теперь если значения сошлись, то копируем значения
 
if(status)
   {
    StringGrid2->RowCount=StringGrid1->RowCount;
       for(int i=1;i<StringGrid1->RowCount;++i)
        for(int j=1;j<StringGrid1->ColCount;++j)
              StringGrid2->Cells[j][i]!=StringGrid1->Cells[j][i];
 
   }
}
//---------------------------------------------------------------------------

    Variant mExcel = CreateOleObject("Excel.Application"); // Запускаем экземпляр Excel
    mExcel.OlePropertyGet("WorkBooks").OleProcedure("Open", WideString("d:\\test\\1.xls"));
    // mExcel.OlePropertySet("Visible", True); // Делаем экземпляр видимым, с этой строкой - медленнее
 
    Variant mSheet = mExcel.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1).
                            OlePropertyGet("Worksheets").OlePropertyGet("Item", 1);
 
    for(int i = 1; i < 101; i++)
    {
        // AN - 40-ой столбец
        mSheet.OlePropertyGet(WideString("Range"),WideString().sprintf(L"A%d:AN%d", i, i)).OleProcedure(WideString("Select"));
        mExcel.OlePropertyGet("Selection").OleFunction("Copy");
 
        String s = Clipboard()->AsText; // пишешь это в контейнер для последующего сравнения
    }

void __fastcall TForm1::Button8Click(TObject *Sender)
{
        String In;
 
        Variant app, books, book, sheet;
        app = CreateOleObject("Excel.Application");
        books = app.OlePropertyGet("Workbooks");
        books.OleFunction("Open", WideString(Edit8->Text));
        book = books.OlePropertyGet("item", 1);
        sheet = book.OlePropertyGet("WorkSheets", 4); //номер листа
 
        Variant app2, books2, book2, sheet2, Cell2;
        app2 = CreateOleObject("Excel.Application");
        books2 = app2.OlePropertyGet("Workbooks");
        books2.OleFunction("Open", WideString(Edit9->Text));
        book2 = books2.OlePropertyGet("item", 1);
        sheet2 = book2.OlePropertyGet("WorkSheets", 4);
 
        for(int i=1;i<501;i++)
            {
 
                String Loop= sheet.OlePropertyGet("Cells", i, 4);
                String Adr= sheet.OlePropertyGet("Cells", i, 2);
                for(int i2=1;i2<501;i2++)
                    {
                        String Loop2= sheet2.OlePropertyGet("Cells", i2, 4);
                        String Adr2= sheet2.OlePropertyGet("Cells", i2, 2);
                        if(Loop==Loop2&&Adr==Adr2)
                          {
                            for(int ii=40;ii<46;ii++)
                                {
                                    In=sheet.OlePropertyGet("Cells", i, ii);
                                    sheet2.OlePropertyGet("Cells", i2, ii).
                                    OlePropertySet("Value",WideString(In));
                                }
                          }
                    }
            }
        app.OleProcedure("Quit");
        app.Clear();
        app=NULL;
        book2.OleProcedure("Save");
        app2.OleProcedure("Quit");
        app2.Clear();
        app2=NULL;
        return;
}

Variant mExcel = CreateOleObject("Excel.Application"); // Запускаем экземпляр Excel
    mExcel.OlePropertyGet("WorkBooks").OleProcedure("Open", WideString(Edit8->Text));
 
    Variant mSheet = mExcel.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1).
                            OlePropertyGet("Worksheets").OlePropertyGet("Item", 4); 
        String s = Clipboard()->AsText; // пишешь это в контейнер для последующего сравнения
    }