> 
> You can use SelAttributes to insert formatted text.  See
> www.tamaracka.com/search.htm for more on this TCustomRichEdit property.
> 
> You could also try creating this unit and using these functions... ....
> 
> procedure GetRTFSelection( aRichEdit: TCustomRichEdit; intoStream:
> TStream );
> 
> procedure PutRTFSelection( aRichEdit: TCustomRichEdit; sourceStream:
> TStream);
> 
> procedure InsertRTF(aRichEdit:TCustomRichEdit; s : String);
> 
> procedure CopyRTF(aSource, aDest:TCustomRichEdit);
> 
> procedure AppendRTF(aRichEdit:TCustomRichEdit; s : String);
>