AY>  Добавить узел
AY>  procedure TMainForm.AAddExecute(Sender: TObject);
AY>  Begin
AY>   with TreeView do
AY>    if Selected <> nil then Selected := Items.Add(Selected, 'Text');
AY>  End;

AY>  Добавить дочеpний узел
AY>  procedure TMainForm.AAddChildExecute(Sender: TObject);
AY>  begin
AY>   with TreeView do
AY>     if Selected <> nil then Selected := Items.AddChild(Selected,
AY> 'ChildText'); End;

Делаю вплывающую менюшку где при кликании на нужный пункт создаю дочерный узел
но он создается в первом узле RightClickSelect - не помогает что-делать
А как запертить делать дочерний узел в дочернем (те в том который уже является
дочерним для какого-либо)