Procedure TWPRTFDataBlock.Assign(Source:TPersistent)Unit: WPRTEDefsClass: WPRTEDefs.TWPRTFDataBlockParameters Source:TPersistent