Сравнение двух StringGrid

TStringList *SL = new TStringList;
TStringList *SL2 = new TStringList;
int a;
AnsiString S;
SL->LoadFromFile("c:\\2/1.txt");
StringGrid1->RowCount=StringGrid1->FixedRows+SL->Count;
for(int i=0; i<SL->Count; i++)
{
  S=StringReplace(SL->Strings[i], ";;","; ;",TReplaceFlags()<<rfReplaceAll);
  S=StringReplace(S, ";;","; ;",TReplaceFlags()<<rfReplaceAll);
  a=ExtractStrings(TSysCharSet() << ';', TSysCharSet(), S.c_str(), SL2);
  if(StringGrid1->ColCount<(a+StringGrid1->FixedCols))
  StringGrid1->ColCount=a+StringGrid1->FixedCols;
  for(int j=0; j<StringGrid1->FixedCols;j++)
  SL2->Insert(j,StringGrid1->Cells[j][i]);
  StringGrid1->Rows[i+StringGrid1->FixedRows]=SL2;
  SL2->Clear();
}

int z=0;
int r=0;
for (r=0; r<StringGrid2->RowCount; r++)
{
for (int j=0; j<StringGrid1->RowCount; j++)
{
if (StringGrid1->Cells[0][j]!=StringGrid2->Cells[0][r])
{
StringGrid3->Cells[0][z]=StringGrid1->Cells[0][j];
StringGrid3->Cells[1][z]=StringGrid1->Cells[1][j];
z++;
}
}
}

for (int row = 0; row < StringGrid1->RowCount; row++)
{
    if (StringGrid2->Rows[0]->IndexOf(StringGrid1->Cells[0][row]) == -1)
    {
        // добавляешь в третий грид строку с индексом row из первого грида
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int z = 0;
    for (int row = 0; row < StringGrid1->RowCount; row++)
    {
        if (StringGrid2->Cols[0]->IndexOf(StringGrid1->Cells[0][row]) == -1) // <--- Здесь была опечатка, нужно Cols а не Rows
            StringGrid3->Rows[z++]->CommaText = StringGrid1->Rows[row]->CommaText;
    }
}