有关Delphi中存取Word文件的问题，指教！(100分)

如何将word文件存入Access数据库中的OLE对象字段中，并能读出显示在RichEdit控件中？
请各位高手指教，急！！

word文件可能不能在richedit中显示出来，(rtf格式还是可以的，）
word文件存入ole字段都是老问题了，你用word,或blob搜索一下，保证一大堆，
祝你成功！.

ehlib,ip2000,devexpress的quantumgrid应该都可以吧

只能用olecontainer显示

1、存入
procedure TForm1.Button1Click(Sender: TObject);
var
CurST:TStringStream;
Filename:string;
begin
if OpenDialog1.Execute then
begin
Filename:=OpenDialog1.FileName;
wordOleContainer.CreateObjectFromFile(FileName, False);
CurST := tstringstream.create('');
wordOleContainer.savetostream(CurST);
ADOTable1.Append;
ADOTable1.FieldByName('doc').AsVariant:=CurST.datastring;
ADOTable1.Post;
CurST.free;
wordOleContainer.DestroyObject;
end; }
end;

//读出
procedure TForm1.BitBtn1Click(Sender: TObject);
var
CurItemStream:TStringStream;
CurItem:Variant;
begin
CurItem:=aDOTable1.FieldByName('doc').AsVariant;
CurItemStream:= TStringstream.create(CurItem);
CurItemStream.position:=0;
wordOleContainer.loadfromstream(CurItemStream);
CurItemStream.free;
wordOleContainer.SaveAsDocument('temp.rtf');
wordOleContainer.DestroyObject;
sleep(5000);
richedit1.lines.loadfromfile('temp.rtf');//此处读出rtf可能是乱码，请查看delphi
//richedit demo
end;

时间太久 强制结束