uses
ComObj; //声明将调用CreateOleObject函数
....
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
MyWord:Variant;
begin
MyWord:=CreateOleObject('Word.Basic'); //调用OLE的Word.Basic接口启动Word程序
if opendialog1.execute then S:=opendialog1.FileName;
if S<>'' then //如果文件名不为空
begin
MyWord.FileOpen(S); //打开文档
MyWord.AppShow; //显示Word
end;
