word 与 delphi(5分)

如何将listbox 中的内容发送到word
谢谢
最好贴上源代码，
在下感激不尽，

D自带的例子就有类似的嘛

//MSWord 为 word.application
//mInsert 为一memo 和 listbox是一样的

。。。。。
Variant Selection = MSWord.OlePropertyGet("Selection");
Selection.OleProcedure("TypeText", WideString("Hello world at "));
Selection.OleProcedure("TypeText", WideString(mInsert->Text));