如何使用流来存取数据库中的varbinary格式字段内容？

数据库中有一个varbinary格式字段pr_info，现在需要将其读取显示到richvieweditor中显示。有下面一段代码，但是总是报错说格式转换错误。
procedure TRichviewEditor.LoadFromStream();
var
mystream:TBlobStream;
begin
  with dmarticle.adqarticle do
  begin
  mystream := TBlobStream(CreateBlobStream(FieldByName('pr_info'),bmRead));
  m_Edit.LoadRVFFromStream(mystream);
  m_Edit.Format;
  mystream.Free;
  end;
end;
请知道的朋友不吝赐教，应该如何修改呢？