如何将剪贴板的内容保存到数据库的一个字段中去，如何从字段中读取保存到剪贴板中(200分)

我的问题是想把一个word文档中的一段文字存储到一个字段中，查看的时候再读取出来显示在word中。

由于不知道如何将剪贴板的内容保存到数据库的一个字段中去，如何从字段中读取保存到剪贴板中，我只能将这段文字拷贝到一个新建的word文档中，保存成文件，再将这个文件保存到一个字段中。查看时先将字段内容保持成文件，再用word打开。有什么好办法请高手指点

//用wordXP单元
//数据库文件用dBASE for Windows，字段类型为OLE类型；
//连接Word程序及数据库部分略

//Wapp: TWordApplication;
//Table1:TTable;

procedure TForm1.Button1Click(Sender: TObject); //将段落文字保存到数据库中
var aleVariant;
begin
Wapp.Visible := True;
Table1.Append;
a:=wapp.ActiveDocument.Sections.Item(1).range; //"1"为你选择的段落编号
Table1.Fields[0].value:=a;
Table1.post;
end;

procedure TForm1.Button2Click(Sender: TObject); //将数据库中的内容粘帖到一新文档
var a,b,c,d,e:OleVariant;
begin
Wapp.Visible := True;
a:='';
b:= False;
c:=wdNewBlankDocument;
d:=true;
Wapp.Documents.Add(a,b,c,d);
e:=Table1.Fields[0].value;
wapp.ActiveDocument.Sections.Item(1).range.text:=e;
end;