Сравнение двух таблиц, с разных вордовских файлов

var
    i,j,k:integer;
begin
    form3.show;
    k:=-1;
    for i:=0 to StringGrid2.RowCount-1 do begin
        j:=0;
        while (j<StringGrid1.RowCount-1) 
            and (StringGrid1.Cells[1,j]<>StringGrid2.Cells[1,i]) 
                do  inc(j);
        if (j>=StringGrid1.RowCount-1) then begin
            inc(k);
            form3.StringGrid1.Rows[k].Text:=StringGrid2.Rows[i].Text;
         end;
    end;

 if  stringgrid1.Cols[1].IndexOf(stringgrid2.cells[0,i])=-1

procedure TForm1.Button2Click(Sender: TObject);
var i, k : integer;
    L : TStringList;
begin
 k := 0;
 L := TStringList.Create;
 L.CommaText := Grid1.Cols[0].Text;
 for i := 0 to Grid2.RowCount - 1 do
  if L.IndexOf(Grid2.Cells[0, i]) = -1
   then begin
         Grid3.Rows[k] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
         inc(k);
        end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, k : integer;
begin
 k := Grid3.FixedRows;
 for i := Grid2.FixedRows to Grid2.RowCount - 1 do
  if Grid1.Cols[0].IndexOf(Grid2.Cells[0, i]) = -1
   then begin
         Grid3.Rows[k] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
         inc(k);
        end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
 for i := Grid2.FixedRows to Grid2.RowCount - 1 do
  if Grid1.Cols[Grid1.FixedCols].IndexOf(Grid2.Cells[Grid2.FixedCols, i]) = -1
   then begin
         Grid3.Rows[Grid3.RowCount - Grid3.FixedRows - 1] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
        end;
end;