Procedure TWPObject.SetFileExtension(x:string)Unit: WPRTEDefsClass: WPRTEDefs.TWPObjectParameters x:string