1：控制Word文档

 {显示word档案}

 var NewWord：Variant；

...

  NewWord:=  CreateOLEObject('Word.Application');

  {

   当CreateOLEObject函数创建一个Word的Com对象之后，Word已经完全被构造起来了

   内存中已经存在一个Word进程，创建了Application对象

  }

  NewWord.Visible := True;   // 显示Word程序

  NewWord.Documents.Add;  // 增加一个Word文档，Application.Documents嵌套类

  NewWord.Documents.Item(1).Range.Text:=  str;

  Document := NewWord.Documents.Item(1);