Procedure TWPObject.ClearOLEStreamsUnit: WPRTEDefsClass: WPRTEDefs.TWPObjectDescription Removes all OLE streams and creates an empty list