我用的TWordApplication和TWordDocument控件打开word文档，代码如下：
    Try
      WordApplication1.Connect;
    Except
      WordApplication1.Disconnect;
      showmessage('请安装Word 软件！');
      Abort;
    end;
    WordApplication1.Visible:=True;
    FileName:=sDocumentPath+sDocument;
    ConfirmConversions:=true;
    ReadOnly:=false;
    AddToRecentFiles:=true;
    PasswordDocument:=EmptyParam;
    PasswordTemplate:=EmptyParam;
    Revert:=false;
    WritePasswordDocument:=EmptyParam;
    WritePasswordTemplate:=EmptyParam;
    Format:=wdOpenFormatAuto;
    Encoding:=0;
    Visible:=true;
    ItemIndex:=1;
    WordApplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
      PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate,
      Format, Encoding, Visible);
    WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
问题1：以上代码执行时，当打开一个word文档时，word程序不是当前窗口，我现在想让它得到焦点，成为系统的当前窗口。
问题2：当我关闭已作了更改的word文档时（（在程序外面）直接关闭word程序时，点word右上的X），word程序会提示我们是否保存，有三个选择：是、否、取消，如果我选择否和取消，我如何截获windows消息，判断我的选择。

加一句worddocument1.activate;