Create (zglTEditableClass)
Create (TStretch)
pl
Drop (zglTEditableClass)
UseCounter (zglTEditableClass)