Удаление узлов в TTreeView

// Вот при таком описании узла дерева
struct Item
{
    Item *Left, *Center, *Right;
    char Data;
 
    Item(char AData, Item *ALeft, Item *ACenter, Item* ARight)
    {
        Left = ALeft; Center = ACenter; Right = ARight;
        Data = AData;
    }
};
 
// Это "свернет" исходное дерево так, как ты показал:
Item *Collapse(Item *root)
{
    if(root == 0) return 0;
 
    if(root->Center != 0)
    {
        if(root->Center->Center == 0)
        {
            Item *rt = root;
            root = root->Center;
            root->Left = Collapse(rt->Left);
            root->Right = Collapse(rt->Right);
            delete rt;
            return root;
        }
        else
        {
            Item *rt = Collapse(root->Center);
            delete root->Center;
            return rt;
        }
    }
    else return root;
}

Item *InsertItem(char AData, Item *pLeft, Item *pCenter, Item *pRight)
{
    Item *newItem = new Item(AData, pLeft, pCenter, pRight);
    return newItem;
}

    Item *Root = 0;
    Root = InsertItem('S',
        InsertItem('S',
            InsertItem('(', NULL, NULL, NULL),
            InsertItem('S',
                InsertItem('S',
                    NULL,
                    InsertItem('A', NULL, NULL, NULL),
                    NULL),
                InsertItem('+', NULL, NULL, NULL),
                InsertItem('S',
                    NULL,
                    InsertItem('A', NULL, NULL, NULL),
                    NULL)),
            InsertItem(')', NULL, NULL, NULL)),
        InsertItem('*', NULL, NULL, NULL),
        InsertItem('S',
            NULL,
            InsertItem('A', NULL, NULL, NULL),
            NULL));

//функция удаления всех узлов помеченных "S"
int DeleteChild(int&j,TTreeNode *Node,TTreeView *TV)
{
    if(Node->Count==1)
    {
        Node->Text=Node->getFirstChild()->Text;
        Node->getFirstChild()->Delete();
        j++;
    }
    else
    if(Node->Count>1)
    {
        Node = TV->Items->Item[j++];
        DeleteChild(j,Node,TV);
    }
    return j;
}
 
// Цикл в основном обработчике
for(int i=0;i<TreeView1->Items->Count;i++)
    {
        Node1 = TreeView1->Items->Item[j];
        if(Node1->Text=="S")
        {
            if(Node1->HasChildren)
                j = DeleteChild(j,Node1,TreeView1);
        }
        else j++;
    }

 Item *Left, *Center, *Right;