TTreeView и динамическое создание TTreeNode

[Dogmat]

Ребята, подскажите пожалуйста. Появилась нужда динамически создавать TTreeNode и подключать их к TTreeView. Но ничего подходящего я не нашел. У коллекции нодов TTreeNodes есть несколько методов добавления и вставки, но, насколько я понял, эти методы сами создают экземпляры TTreeNode, параметры у них у всех одинаковые, вот пример такого метода:

TTreeNode* __fastcall AddChild(TTreeNode* Node, const System::AnsiString S);

У самого TTreeNode, есть метод MoveTo, позволяющий делать, то что мне нужно:

virtual void __fastcall MoveTo(TTreeNode* Destination, TNodeAttachMode Mode);

Однако, во время выполнения MoveTo выскакивает AccessViolation. К тому же, не понятно, как добавлять ноды в коллекцию TTreeNodes, если она пуста, без использования методов Add и Insert.

Вот маленький пример:

    TTreeView *treeView = new TTreeView(MainForm);
    treeView->Parent = MainForm;
    treeView->Align = alTop;

    TTreeNodes *items = TreeView->Items;

//  пускай первый нод добавим с использование Add
    TTreeNode *defNode = items->Add(NULL, "Default TopNode");
    
    TTreeNode *someNode = new TTreeNode(items);
//  здесь выскочит AccessViolation
    someNode->MoveTo(defNode, naAddChild);

Все бы ничего. Можно каждый элемент добавлять Add. Однако для меня важно добавлять элементы созданные мной оператором new. Я предполагаю унаследовать класс TTreeNodeExp от TTreeNode, а в функции все так же передавать указатель на TTreeNode используя восходящее приведение.
TTreeNode имеет массу readonly свойств, среди них есть, например, ItemID == NULL после создания, возможно на него ругается.