Сложное сравнение 2-х таблиц Excel

implementation
 
{$R *.dfm}
 
uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Координаты верхней левой ячейки таблицы на листе MS Excel.
  cRow1 = 3;
  cCol1 = 2;
var
  exApp, exBook, exSh, exRng, exCell, VArr : Variant;
  Od : TOpenDialog;
  Sg : TStringGrid;
  Row, Col : Integer;
begin
  //Ссылка на таблицу.
  Sg := StringGrid1;
  //Ссылка на объект диалога.
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFileName(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(
      0
      ,'Заданный файл не найден. Действие отменено.'
      ,'Внимание!'
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
 
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(
      0
      ,'Не удалось запустить MS Excel. Действие отменено.'
      ,'Ошибка!'
      ,MB_OK + MB_ICONERROR + MB_APPLMODAL
    );
    Exit;
  end;
 
  //Делаем видимым окно MS Excel.
  exApp.Visible := True;
  //Открываем рабочую книгу.
  exBook := exApp.WorkBooks.Open(FileName:=Od.FileName);
  //Получаем ссылку на первый лист рабочей книги.
  exSh := exBook.Worksheets[1];
  //Верхняя левая ячейка в таблице на листе MS Excel.
  exCell := exSh.Cells[cRow1, cCol1];
  //Номер самой нижней задействованной строки на листе MS Excel
  Row := exSh.UsedRange.Row + exSh.UsedRange.Rows.Count - 1;
  //Номер крайнего правого задействованного столбца на листе MS Excel
  Col := exSh.UsedRange.Column + exSh.UsedRange.Columns.Count - 1;
  //Проверка размера таблицы.
  if exCell.Row > Row then begin
    MessageBox(
      0
      ,'Таблица на листе MS Excel пуста. Действие отменено.'
      ,'Внимание!'
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
  //Определение диапазона, который охватывает таблицу на листе MS Excel.
  exRng := exSh.Range[exCell, exCell.Offset[Row - exCell.Row, Col - exCell.Column]];
  //Получаем данные из таблицы Excel в виде вариантного массива.
  VArr := exRng.Value;
  //Устанавливаем размер таблицы Sg равным размеру вариантного массива.
  Sg.RowCount := VarArrayHighBound(VArr, 1);
  Sg.ColCount := VarArrayHighBound(VArr, 2);
  //Переписываем данные из вариантного массива в таблицу.
  for Row := 1 to VarArrayHighBound(VArr, 1) do
    for Col := 1 to VarArrayHighBound(VArr, 2) do
      Sg.Cells[Col - 1, Row - 1] := VArr[Row, Col];
end;
 
end.