procedure DeleteEmptyNodes; virtual;