word的调用问题(怪事了)(100分)

我的delphi源程序是
try
AppWord:=GetActiveOleObject('Word.Application');
except
//未运行则运行之
//AppWord:=CreateOleObject('Word.Basic');
AppWord:=CreateOleObject('Word.Application');
end;
try
连接到Word
//AppWord:=CreateOleObject('Word.Application');
WordApp.Connect;
except
WordApp.Free;
MessageDlg('请确认是否安装了Word！',mtError,[mbOK],0);
Abort;
end;
Template:='C:.dot';
//Template:=unassigned;
NewTemplate:=False;
DocumentType:=wdNewBlankDocument;
Visible:=true;
WordApp.Documents.Add(Template,NewTemplate,DocumentType,Visible);
其中AppWord为variant,WordApp为Twordapplication
请各位帮帮忙

这个编译可通过,可运行时就出现错误了

不说错误信息，无从判断啊

错误信息是一种读写错误,是对内存的,很乱的那种
或者有那位曾今作过这方面的能提供一下源码作为参考那更好
谢谢了

procedure TfrmWord.btnOleVariantClick(Sender: TObject);
var
WordApp, WordDoc: OleVariant;//看清这一行
begin
try
WordApp := CreateOleObject('word.application');
WordApp.Visible := True;
WordDoc := WordApp.Documents.Add(ExtractFilePath(Application.ExeName) + 'test.doc', false);
WordDoc.Range.Text := '使用OleVariant处理Word文档' +
'可以实现对Word文档的所有控制功能！';
//...可以进行其他需要的处理
except
ShowMessage('打开Word文件时出错！');
end;
end;

To
newsmil
编译后ExtractFilePath(Application.ExeName)出现Application没有定义(Undefined)
怎么回事啊
要加什么文件单元吗?
能不能给我你的MSN,方便联系
谢谢

不需要加什么单元，就是用到servers下的WordApplication1控件就可以了，怎么用上面写的很清楚了．还不会的话，看看他的属性就可以了．很简单的

抱歉！今天才看到您的帖子，最近比较忙，我的MSN是newsmilecn@hotmail.com。您到delphi的帮助里查一下ExtractFilePath这个函数就知道要引用什么单元了，碰到类似的问题都是这样查的，没有人能记住那么多的函数。本论坛有一个很牛的帖子 http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517 有空参考一下会有收获的。

多人接受答案了。