Delphi TRichEdit加载word内容

procedure TForm1.btn6Click(Sender: TObject);
var
WordApp: Variant; //声明一个word对象
begin
WordApp := CreateOleObject('Word.Application'); //创建word对象
WordApp.Documents.open('E:SVN_712 runkCodeBin ablet20160308110555.doc'); //打开一个word文档
//wordapp.visible:=true; //是否让打开的word文档显示出来
wordapp.activedocument.select; //选取打开的word文档中全部内容
wordapp.selection.copy; //拷贝选取的内容
RzRichEdit1.PasteFromClipboard; //把拷贝的内容粘贴到richedit中
redt1.PasteFromClipboard; //把拷贝的内容粘贴到richedit中
WordApp.Quit; //关闭对象
end;