如何调用word,打开一个word文档(100分)

请问如何在delphi中调用word，打开一个word文档?
我试过用winexec函数，其中的filename直接用word文档所在的路径，执行时没有反应；而
如果把filename参数改为“word.exe所在路径"+”　word文档所在的路径“，则可以顺利
调用word打开该文档。但这样必须先获得word.exe所在的路径，比较麻烦！
请问有没有更为方便的调用方法呢。

procedure TForm1.startClick(Sender: TObject);
begin
try
wordapplication1.connect;
except
messagedlg('word may not be installed', mterror, [mbok], 0);
abort;
end;
wordapplication1.visible := true;
wordapplication1.caption := 'delphi automation';
open.Enabled:=true;
end;


procedure TForm1.openClick(Sender: TObject);
var
Itemindex, format,TempEmpty: olevariant;
filename, passworddocument, passwordtemplate: olevariant;
writepassworddocument, writepasswordtemplate: olevariant;
confirmconversions, readonly, revert, addtorecentfiles: olevariant;
begin
filename:='c:/temp.DOC';
confirmconversions := false;
readonly := false;
addtorecentfiles := false;
revert := true;
passworddocument := '';
passwordtemplate := '';
writepassworddocument := '';
writepasswordtemplate := '';
format := wdopenformatdocument;
wordapplication1.documents.open(filename, confirmconversions,
readonly, addtorecentfiles, passworddocument, passwordtemplate,
revert, writepassworddocument, writepasswordtemplate, format,TempEmpty,TempEmpty);
end;

在interface下的uses 中加入 shellapi,执行如下代码：
ShellExecute(form1.Handle ,nil,'d:/docbak/spc/重要问题说明.doc',
nil,nil,sw_shownormal)
把要打开的文件换成你自己的文件即可

谢谢bianlx，问题已经解决了。