Добавление узлов в XML в Delphi, исользуя Treeview

[Анастасия999]

Доброе утро. Помогите кто сможет. Мне необходимо, чтобы когда добавлялся узел, он добавлялся не в конец, а сразу за выделенный узел. Просто в дереве это не сложно, а вот используя XML...
Данный фрагмент программы - это процедура для добавления узла на один уровень с выделенным.

procedure TMainF.acAddNodeExecute(Sender: TObject);
var
  idx : integer ;
  S   : String ;
  xN  : IXMLNode ;
  trN : TTreeNode ;
  R   : TNodeRec ;
begin
  if CurrNode = nil then CurrNode := XDoc.Node;
  S := InputBox('Добавить новый узел на один уровень с "' + CurrNode.NodeName+ '"','имя узла:','');
  if S <> '' then
    begin
      try
        xn := CurrNode.ParentNode.AddChild(S);
        trN := TreeView.Items.AddChildObject(TreeView.Selected.Parent,S,
         pointer(xn.ParentNode.ChildNodes.IndexOf(xn)));
        R := TNodeRec.Create;
        R.XMLNode := xn;
        R.TreeNode := trN;
        idx := CurrentNodeListIndex;
        if idx = -1 then idx := 0;
        XDocNodesList.Insert(idx,R);
      except
      end ;
    end

;