block.reg('BLK_DESTROY')
Это
println('destructor ', CUR_CLASS, '.Destroy;')
lng.begin()
println('inherited Destroy;')
lng.end()
lng.begin()
println('inherited Destroy;')
lng.end()
заменяешь на это:
println('destructor ', CUR_CLASS, '.Destroy;')
lng.begin()
println('inherited Destroy;')
block.copyhere('BLK_DESTROY')
block.delete('BLK_DESTROY')
lng.end()
lng.begin()
println('inherited Destroy;')
block.copyhere('BLK_DESTROY')
block.delete('BLK_DESTROY')
lng.end()
В коде компонентов делаешь block.select('BLK_DESTROY')