Procedure TWPOCustomImage.CompressOnTheFly(Format:string; AlsoWMF:Boolean)Unit: WPOBJ_ImageClass: WPOBJ_Image.TWPOCustomImageParameters Format:string AlsoWMF:Boolean