怎么把剪贴板上的内容写到流中（TADOBlobStream）?(20分)

我想把把剪贴板上的内容保存到数据库的一个字段中。

用Tstream对象.

类似以下
var
str:TMemoryStream;
begin
with Form_Diary do begin
str:=TMemoryStream.Create();
//把剪贴板上的内容读入TMemoryStream里面。。。。
//方法很多。。。。
TBlobField(ADODataSet1.FieldByName('Diary_Txt')).LoadFromStream(Str);
str.Free;
end;

给分！：）