Create (zglTEditableClass)
Create (zglTCRect)
pl
Drop (zglTEditableClass)
GetRect (zglTCRect)
UseCounter (zglTEditableClass)