使用TWordApplication控件控制WORD的问题(封装成一个类)(100分)

我想写一个WordControl类
内部封装TwordApplication和TwordDocument

主要属性
CurrentDoc:OleVariant;//当前文档的数据 只读 (GetDocData)
CurrentDocIndex:integer;//当前文档索引
CurrentDocName:String; //当前文档名称
DocCount:integer; 当前打开的文档数目
DocsStly::array [0.. DocCount-1] of Char //文档的打开类型；由L:由对象打开 R：由用户手工打开
Document: TwordDocument; //当前文档对象

希望能够实现以下方法

Create:初始化对象，并创建WORD
Destory：释放对象内的所有资源
OpenDoc:打开一个文档
GetDocData：获得指定文档的数据
SaveDocToDisk：保存文档的磁盘
ReplaceTextToDoc：替换文档中的指定信息
WriteTextToDoc: 向文档指定位置添加指定文字
PrintDoc：打印指定文档
RefreshDoc：刷新指定文档


希望各位高手不吝赐教，集思广益，一起来完善