Create (zglTEditableClass)

Create (zglTNamedObject)

Create (zglTBaseGUIObject)

CreateDefaults (zglTBaseGUIObject)

pl 

Drop (zglTEditableClass)

pl 

UseCounter (zglTEditableClass)