OCMain.CreateObjectFromFile(Fullfname,false);  
  OCMain.DoVerb(ovPrimary);
  OCMain.OleObjectInterface.QueryInterface(IOleInPlaceObject, IOPO);
  IOPO.UIDeactivate;
  IOPO := nil;
  OCMain.Run;

  OCMain.OleObject.Protect(3)

procedure TdpFrEventText.SaveEventText;
var wa,wd: Variant;
begin
	WA:=IDispatch(OCMain.OleObject.Application);// as WordApplication;
	WD:=WA.ActiveDocument;
	wd.SaveAs2(FileName := fullfname,Password:='123',AddToRecentFiles:=false);
end;

 aDoc.Protect Type:=wdAllowOnlyRevisions, Password:=strPassword 

	WA:=IDispatch(OCMain.OleObject.Application);// as WordApplication;
	WD:=WA.ActiveDocument;

//	wd.Protect(Type:=0, Password := '111');
//  wd.saveAs(fullfname);
	wd.SaveAs2(
FileName:=fullfname,
FileFormat:=12,
//LockComments:=False,
Password:='123',
AddToRecentFiles:=False,
WritePassword:='456'
//ReadOnlyRecommended:=False,
//EmbedTrueTypeFonts:=False,
//SaveNativePictureFormat:=True,
//SaveFormsData:=False,
//SaveAsAOCELetter:=False,
//Encoding:=65001,
//InsertLineBreaks:=True,
//AllowSubstitutions:=False,
//LineEnding:=0,
//AddBiDiMarks:=False,
//CompatibilityMode:=65535
);

    Selection.TypeText Text:="qweqweqwe"
    ChangeFileOpenDirectory "B:\"
    ActiveDocument.SaveAs2 FileName:="qweqweqwe.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="123", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=14

var wa,wd: Variant;
begin
	WA:=IDispatch(OCMain.OleObject.Application);// as WordApplication;
	WD:=WA.ActiveDocument;

//	wd.Protect(Type:=0, Password := '111');
//  wd.saveAs(fullfname);
	wa.ChangeFileOpenDirectory(extractfilepath(fullfname));
	wd.SaveAs2(

FileName:=ExtractFileName(fullfname),
FileFormat:=12,
LockComments:=False,
Password:='123',
AddToRecentFiles:=False,
WritePassword:='',
ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False,
SaveNativePictureFormat:=False,
SaveFormsData:=False,
SaveAsAOCELetter:=False,
CompatibilityMode:=14
);

var
  App: variant; //Это локальные переменные для сохранения пароля через костыли
  Doc: variant;
begin
  WordDoc.saveas(fullfname);
OCMain.Close;
application.ProcessMessages;
//Вот тут магия, которая почему-то работает - пароль сохраняется отлично
  App := CreateOleObject('Word.Application');
  App.Visible := False;
  App.Documents.Open(fullfname);
  Doc:=App.ActiveDocument;
  Doc.Password := '123';
  Doc.Save;
  Doc.close;
  App.Quit(False, EmptyParam, EmptyParam);
  App:=Unassigned;

Debug Output:
onecore\com\combase\dcomrem\call.cxx(4907)\combase.dll!76E50725: (caller: 76E33198) ReturnHr(1) tid(11b4) 800706BA Сервер RPC недоступен.