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

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses ComObj;
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
const
 AWordDoc = 'C:\word\table.doc';
var
  MSWord,Table: OLEVariant;
  iRows,iCols,iGridRows,jGridCols,iNumTables,iTableChosen: integer;
  CellText:string;
  InputString:string;
begin
  try
    MSWord:=CreateOleObject('Word.Application');
  except
    ShowMessage('Ошибка открытия файла .docx!');
    Exit;
  end;
  try
    MSWord.Visible:=false;
    MSWord.Documents.Open(AWordDoc);
    // Узнаём количество таблиц в документе
    iNumTables:=MSWord.ActiveDocument.Tables.Count;
 
    InputString:=InputBox('Таблиц в документе: '+IntToStr(iNumTables),'Пожалуйста введите номер таблицы','1');
    // Проверка строки на число, диапазон...
    iTableChosen:= StrToInt(InputString);
    Table:=MSWord.ActiveDocument.Tables.Item(iTableChosen);
    // размер таблицы
    iCols:=Table.Rows.Count;
    iRows:=Table.Colums.Count;
    // настройка столбцов StringGrid
    StringGrid1.RowCount:=iCols;
    StringGrid1.ColCount:=iRows + 1;
    // цикл по ячейкам
    for iGridRows:=1 to iRows do 
    for jGridCols:=1 to iCols do
    Begin
      CellText:=Table.Cell(jGridCols, iGridRows).Range.FormattedText;
      if not VarisEmpty(CellText) then
      Begin
        // Удаляем таблицу
        CellText:=StringReplace(CellText,'#0$D','', [rfReplaceAll]);
        CellText := StringReplace(CellText, '#0$7','', [rfReplaceAll]);
        // fill Stringgrid
          Stringgrid1.Cells[iGridRows, jGridCols] := CellText;
      End;
    End;
  finally
    MSWord.Quit;
  end;
end;
 
end.

#0$D

#0$7

StringReplace(CellText,#$D,'', [rfReplaceAll])