Procedure TWPObject.SetShapeParam(x:TStrings)Unit: WPRTEDefsClass: WPRTEDefs.TWPObjectParameters x:TStrings