[brookhut]

Есть две папки с эксель файлами в каждом из них по одной странице с именами (в папке№1 "Лист1", в папке№2 "Лист2"), нужно чтобы в папке№1 были эксель файлы с именами листов"Лист 1", "Лист2". Написал код на кнопку, но при выполнении появляется сообщение "Вызванный объект был отключен от клиентов", лист добавляется в книгу, книга из Папки№1 сохраняется, но не закрывается и работа цикла останавливается. Ниже код на кнопке, просьба подсказать, что не так делаю.

Код:

procedure TForm1.ToolButton3Click(Sender: TObject);
  var
  i,j:integer;
  fName1, fName2: string;
      begin
        OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
        OpenDialog1.Filter := 'XLS files (*.xls)|*.xls|XLSX files (*.XLSX)|*.XLSX';
        OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
        OpenDialog2.Options := [ofAllowMultiSelect, ofFileMustExist];
        OpenDialog2.Filter := 'XLS files (*.xls)|*.xls|XLSX files (*.XLSX)|*.XLSX';
        OpenDialog2.FilterIndex := 2; { start the dialog showing all files }
          if OpenDialog1.Execute then fName1:=OpenDialog1.FileName else exit;
            for i:= 0 to OpenDialog1.Files.Count-1 do
            begin
                //Запуск экземпляра Excel и получение ссылки на интерфейс корневого объекта (Excel.Application).
                exApp := CreateOleObject('Excel.Application');
                //Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
                exApp.Visible := true;
                //Открываем раб. книгу и получаем ссылку на её интерфейс. в папке1
                exBook := exApp.Workbooks.Open(fName1);
                //Ссылка на интерфейс первого листа рабочей книги из папки 1.
                exSh :=exApp.ActiveWorkbook.WorkSheets[1];
                  if OpenDialog2.Execute then fName2:=OpenDialog2.FileName else exit;
                      for j:= 0 to OpenDialog2.Files.Count-1 do
                          begin
                            //Открываем раб. книгу и получаем ссылку на её интерфейс в папке2
                            exBook2 := exApp.Workbooks.Open(fName2);
                            //Ссылка на интерфейс первого листа рабочей книги из папки 2.
                            exSh2 :=exApp.ActiveWorkbook.WorkSheets[1];
                            //Перемещение листа из книги1 папки1 в книгу1 папки2
                            exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
                          exBook.Save;
                          exBook.Close;
                          end;

            end;
       //exBook.Close;
      //exApp.Quit;   //Закрываем MS Excel
      // exApp:=Unassigned ж
      //close;
      //exit;
      end;