Procedure TWPRTFNumberStyleCollection.ClearStylesUnit: WPRTEDefsClass: WPRTEDefs.TWPRTFNumberStyleCollectionDescription ClearStyles deletes all styles axcet those which have Locked=wpClearDoesNotDelete