Procedure TWPObject.SetGraphic(x:TGraphic)Unit: WPRTEDefsClass: WPRTEDefs.TWPObjectParameters x:TGraphic