Procedure TWPParStyle.SetBasedOnStyle(x:string)Unit: WPCTRStyleColClass: WPCTRStyleCol.TWPParStyleParameters x:string