Delphi关于流存储的问题求教！！！

我现在有一个用流的方式对数据进行保存的方法，数据采用的是RXRICHEDIT控件，内容可能是图文混排的，下面是我的代码，问题是内容比较多的时候速度很慢，求教大神们有没有好办法可以加点速度！

MyMemoStr:=TMemoryStream.Create;
TBlobField(qry3.FieldByName('内容')).SaveToStream(MyMemoStr);
MyMemoStr.Position:=0;
RxRichEdit1.Lines.LoadFromStream(MyMemoStr);
MyMemoStr.Free;
以上是读取原来的数据，我需要在原来的数据上添加新内容后再存回去，下面是代码

RxRichEdit2.SelectAll;
RxRichEdit2.CopyToClipboard;

RxRichEdit1.SelStart:=Length(RxRichEdit1.Text);
RxRichEdit1.SetFocus;
RxRichEdit1.PasteFromClipboard;

MyMemoStr:=TMemoryStream.Create;
RxRichEdit1.Lines.SaveToStream(MyMemoStr);
RxRichEdit1.ReadOnly:=True;

qry1.Edit;
Tblobfield(qry3.FieldByName('内容')).LoadFromStream(MyMemoStr);
qry1.Post;

　MyMemoStr.Free;

上面这种方法虽然能实现，但速度非常慢，请教大神们帮忙啊！