TTree =  class (TObject)
    Data: TByteArray;
    Children:  array   of  TTree;
     constructor  Create(ChildrenNumber: Integer =  0 ; DataLength: Integer =  0 );
     constructor  Load(Tree: TTree);
     destructor  Destroy; override;
     function  MaxLevel: Integer;
     procedure  Clear;
     procedure  TreatChildren;
     procedure  SaveToList( var  List: TList);
   end ;

  TTreeList =  class (TList)
   private 
     function  GetTree(Index: Integer): TTree;
     procedure  SetTree(Index: Integer; Tree: TTree);
   public 
     destructor  Destroy; override;
     procedure  Clear; override;
     property  Trees[Index: Integer]: TTree read GetTree write SetTree; default;
   end ;

 procedure  Show( const  Tree: TTree; Canvas: TCanvas;
  Fill: Boolean; ShowAxesDirections: Boolean; MaxLevel: Integer = - 1 ;
  Level: Integer =  0 );

Show(SceneTrees[i], Form.Image.Picture.Bitmap.Canvas, Fill,
             Directions, MaxLevel)

SceneTrees: TTreeList;
Fill: Boolean;
Directions: Boolean;
MaxLevel: Integer;

 class TTree
 {  
   public:
   CByteArray Data;
   CPtrArr<TTree *, 1 > Children;
    TTree(int ChildrenNumber= 0 , int DataLength =  0 );
    TTree(TTree *Tree);
    ~TTree();
    int MaxLevel();
    void Clear();
    void TreatChildren();
    void SaveToList(TList *List);
  };

 class TTreeList : public TList{
  private:
    TTree * GetTree(int Index);
    void SetTree(int Index,TTree *TTree);
  public:
    __fastcall virtual ~TTreeList(void);
    __fastcall virtual void Clear();
    __property TTree * Trees[int Index] = {read = GetTree, write = SetTree }; //default;
  };
.......
void Show(  TTree  *Tree ,   TCanvas  *Canvas ,  bool
  Fill ,  bool    Directions , int MaxLevel  = - 1 ,  int
  Level =   0   ) ;
.......
  TTreeList *   SceneTrees ;
 bool   FillEllipses ;
 bool   ShowAxesDirections ;
 int    MaxLevel ;
.......
ShowEllipticRepresentation(SceneTrees[i],
        FormScene->Image->Picture->Bitmap->Canvas, Fill, Directions, MaxLevel);

Show(SceneTrees[i],
        FormScene->Image->Picture->Bitmap->Canvas, Fill, Directions, MaxLevel);