Procedure TWPStyleCollection.WriteStyles(DestEditBox:TWPCustomRtfEdit)Unit: WPCTRStyleColClass: WPCTRStyleCol.TWPStyleCollectionParameters DestEditBox:TWPCustomRtfEdit