Работа с ComboBox и MS Word

uses
  ComObj;
 
//Открытие документа и запись данных в ячейки таблицы.
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDoc, wdTable : OLEVariant;
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then //Начальный директорий для диалога выбора файла.
    Od.InitialDir := ExtractFilePath(ParamStr(0)); //Путь директория, в котором лежит исполянемый файл программы.
  Od.Title := 'Выберите файл шаблона для создания нового документа';
  if not Od.Execute then //Запуск диалога выбора файла.
    Exit;
  if not FileExists(Od.FileName) then //Проверка существования файла.
  begin
    MessageBox(Handle, 'Файл с заданным именем не найден. Действие отменено.',
      'Внимание!', MB_YESNO + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Попытка запустить MS Word и получить ссылку на интерфейс его корневого объекта.
  try
    wdApp := CreateOleObject('Word.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Word. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Открываем документ и получаем ссылку на его интерфейс.
  wdDoc := wdApp.Documents.Open(FileName:=Od.FileName);
  //Проверяем - есть ли в документе таблицы.
  if wdDoc.Tables.Count = 0 then
  begin
    MessageBox(Handle, 'Внимание! В документе нет ни одной таблицы! Действие отменено.',
      'Действие отменено!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  //Получаем ссылку на интерфейс первой таблицы в документе.
  wdTable := wdDoc.Tables.Item(1);
  
  //Запись текстов в ячейки таблицы.
  wdTable.Cell(1, 1).Range.Text := Edit1.Text;
  wdTable.Cell(1, 2).Range.Text := Edit2.Text;
  wdTable.Cell(2, 1).Range.Text := Edit3.Text;
  wdTable.Cell(2, 2).Range.Text := Edit4.Text;
end;