Procedure TWPObject.MakeUniqueNameUnit: WPRTEDefsClass: WPRTEDefs.TWPObjectDescription Create a name which is not used by any TWPRTFDataBlock in the collection