Работа с Olecontainer

procedure TForm2.FormShow(Sender: TObject);          // вывешиваю вторую форму
begin
  vWord := CreateOleObject('Word.Application');
  vWord.Visible := false;
  vWord.Documents.Open(ExtractFilePath (ParamStr(0))+'\Данные\1.docx'); 
 
 
oleobj1.CreateObject('Word.Application',False);         // при создании на второй форме Olecontainer  
                                                                                          сразу же открываю в ней документ
 
oleobj1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'/Данные/1.docx',false);
oleobj1.DoVerb(ovOpen);
end;
……….
// Вношу изменения в открытый документ. Я его вижу, я в нем работаю. Типа все хорошо. (см. картинку)
……….
procedure TForm2.btn1Click(Sender: TObject);  // Закрываю документ
begin
vWord.ActiveDocument.SaveAs(ExtractFileDir(paramstr(0))+ '/Данные/11.docx');
vWord.ActiveDocument.Close (wdSaveChanges, wdOriginalDocumentFormat, False);

vWord := CreateOleObject('Word.Application');

oleobj1.CreateObject('Word.Application',False);

oleobj1.CreateObjectFromFile(...

vWord.ActiveDocument.SaveAs(ExtractFileDir(paramstr(0))+ '/Данные/11.docx');

begin
  if OpenDialog1.Execute then  // Это я убрал - мне не нужно искать файл. Тупо прописываю путь и все получается.
     OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, false);
end;

begin
       OleContainer1.DoVerb(ovShow);

begin
        OleContainer1.Close;

procedure TForm4.FormShow(Sender: TObject);
begin
  OleContainer1.CreateObject('Word.Application',False);
  OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'Помощь.doc',false);
  OleContainer1.DoVerb(ovOpen); 
  OleContainer1.OleObject.Protect(3); //  Это явно лишнее - запрет изменений в тексте Word
end;
 
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  OleContainer1.DestroyObject;
end;

procedure TForm1.b1Click(Sender: TObject);
begin
  Form2.ShowModal;
  form2.OleContainer1.OleObject.SaveAs(ExtractFilePath(ParamStr(0))+'333.doc');
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  OleContainer1.CreateObjectFromFile(ExtractFilePath(ParamStr(0))+'111.docx', false);
  OleContainer1.DoVerb(ovInPlaceActivate);
end;