Delphi中打开Word时，怎么让Word窗口跑到最前面

Delphi中打开Word时，如何让Word窗口跑到最前面？
这是一段使用 Wordapplication 组件调用Word的代码，可正常运用，但打开Word时，Word窗口总是在这个Delphi程序的后面。
有没有简单方法解决这个问题？

-----------------------------------------------------
procedure TForm1.Button4Click(Sender: TObject);
var
? FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
? PasswordDocument, PasswordTemplate, Revert,
? WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
? try
? Wordapplication1.Disconnect;
? Wordapplication1.Connect;
? except
? MessageDlg('无法启动Word，请检查电脑中是否安装Office !', mtError, [mbOk], 0);
? Abort;
? end;
? Wordapplication1.Visible := True;
? FileName := 'F:\aa.doc';
? ConfirmConversions := False;
? ReadOnly := False;
? AddToRecentFiles := False;
? PasswordDocument := '';
? PasswordTemplate := '';
? Revert := True;
? WritePasswordDocument := '';
? WritePasswordTemplate := '';
? Format := wdOpenFormatDocument;
? WordApplication1.Documents.Open(FileName, ConfirmConversions,
? ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
? Revert, WritePasswordDocument, WritePasswordTemplate, Format);
end;


[解决办法]
先取WORD句柄，然后用SetWindowPos函数

[解决办法]
我估计是您的那个程序form设置成放在最前面显示了。或者是用了showModal
[解决办法]

form1.BringToFront;