如何在memo1中显示word文件的内容(50分)

最近做了一个程序，想在memo中显示word的内容，但是在memo中显示的word 内容是乱码，
请问如何做这 个程序，
谢谢

不可能嘛，用servers页上面的东东
memo是文本文件，word是格式文件，若使用richedit还可以（doc文件的低版本）但在读图片和表格
时会出错

读每一段（行）：
以下不会显示 word 窗口的。
procedure TForm1.Button2Click(Sender: TObject);
var
wordapp,doclevariant;
i:integer;
begin
wordapp:=createoleobject('Word.application');
try
doc:=wordapp.Documents.Open(FileName:='c:/my documents/网络通信.doc');
Memo1.clear;
for i:=1 to doc.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapp.quit;
end;

use richedit

用richedit 如何做

还是不行，出现提示“呼叫请示被对方拒绝”。