Copy one TWPRichText component to another

Hello...:)

What is the cleanest way (with perhaps some alternate solutions) to, in effect, "copy" the contents (the rtftext, embedded objects, etc), and all the properties, of one TWPRichText object to another?

In previous WPTools versions, something like this might be used:

with destWPRichText do begin


  Assign( srcWPRichText ); 
  FastCopyProperties( srcWPRichText );


  Align := srcWPRichText.Align;


  ViewOptions := srcWPRichText.ViewOptions;
  InsertPointAttr.Assign(  srcWPRichText.InsertPointAttr );


  AutomaticTextAttr.Assign( srcWPRichText.AutomaticTextAttr );


  InsertPointAttr.Assign  ( srcWPRichText.InsertPointAttr );
  ProtectedTextAttr.Assign( srcWPRichText.ProtectedTextAttr );
  ProtectedProp     := srcWPRichText.ProtectedProp;
  PrintParameter    := srcWPRichText.PrintParameter;
end;

It seems that with WPTools 5, you can no longer assign one TWPRichText component to another - a GPF results.

So the question is what's the best way in WPTools 5 to, in effect, make the destination TWPRichText component an exact lookalike/workalike of the source one (yet still maintain a separate identify).

diamond