请指教 关于读入word的问题

我想在delphi中读入word文档
我就随便创建了一个窗体只放了一个button控件，下面是一些程序，可是不知道是什么原因请大虾指点一下错误
procedure TForm1.Button1Click(Sender: TObject);
var
   WordApp: TWordApplication;
   WordDoc: TWordDocument;
   V:Variant;
   Template,NewTemplate,DocumentType,Visible,itemIndex:OleVariant; //,oReadOnly,CfCversions,AddToRctFiles,PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat,
   NoPrompt,OriginalFormat:OleVariant;
   fname:string;  //保存模版变量
   i:integer;
begin
     //指定文档的路径和文件名
     fname:='c:\瓦斯涌出量预报\采掘工作面瓦斯涌出量预报单.dot';
     wordapp:=twordapplication.Create(self);
     worddoc:=tworddocument.Create(self);
     //测试当前是否运行了Word 2000
     try
        V:=GetActiveOleObject('Word.Application');
     except
       //未运行则运行之
       V:=CreateOleObject('Word.basic');
     end;
     try
      //连接到Word 2000
        WordApp.Connect;
     except
        Beep;
        MessageDlg('不能生成文档,请确认是否安装了Word 2000！',mtError,[mbOK],0);
        Abort;
     end;