Overload "in" operator

[flowCRANE]

Overload in operator for TTSInfoNodeIterator and TTSInfoTree and let iterate through sub-elements with its help (use enumerators). For something like this:

var
  Tree: TTSInfoTree;
  Attr: TTSInfoAttributeIterator;
begin
  for Attr in Tree do
    // main instructions

and this:

var
  Tree: TTSInfoTree;
var
  Node: TTSInfoNodeIterator;
  Attr: TTSInfoAttributeIterator;
begin
  for Node in Tree do
    for Attr in Node do
      // main instructions

Think about temporarily opening nodes during iteration.