Procedure TWPObject.Assign(Source:TPersistent)Unit: WPRTEDefsClass: WPRTEDefs.TWPObjectParameters Source:TPersistent