如何不出现WORD密码输入窗口，直接判断该文档是否加密过(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
wordapp,doclevariant;
dfile1:string;
begin
if Form1.OpenDialog1.Execute then dfile:=Form1.OpenDialog1.FileName; wordapp:=createoleobject('Word.application');
doc:=wordapp.Documents.Open(FileName:=dfile1); //doc:=wordapp.Documents.Open(FileName:=dfile1,);
Wordapp.Visible:=False;
if ((doc.ProtectionType=wdNoProtection) or (doc.HasPassword=False) or (doc.WriteReserved=False)) then
Form1.Edit1.Text:='文档内容受保护或文件被加密保存'
else
Form1.Edit1.Text:='共享文档';
wordapp.quit(WdDoNotSaveChanges,UnAssigned,UnAssigned);
end;

该过程在运行中遇到加密的文件，总会跳出来一个WORD的密码输入框，如果密码输入不对，过程出错。遇到未加密而只有文档保护的文档则不出现WORD界面。
请教各位大侠，有没有什么方法在不知道密码的情况下，不出现密码输入框，而进行是否加密判断？