Procedure TWPObject.CompressOnTheFly(Format:string; AlsoWMF:Boolean)Unit: WPRTEDefsClass: WPRTEDefs.TWPObjectParameters Format:string AlsoWMF:Boolean