delphi设置简单保护文档，防止修改

  use里加入 comobj
 
  加密
 
  word := CreateOleObject('Word.Application');
  word.Documents.open('c:\1.doc');
  word.ActiveDocument.Protect(3,0,'111',0,1);
  word.activedocument.save;
  word.quit;
  word := Unassigned;