Unterstruktur eines Baumes rekursiv kopieren

[Grolle]

Hallo,

ich habe folgende Procedure, die mir einen Teilbaum rekursiv kopieren und einfügen soll. Macht Sie aber nicht. Es wird nämlich alles an den targetNode gehängt und nach 10h programmieren kann ich nicht mehr denken . Hat jemand einen Tip?:

Delphi-Quellcode:

procedure Tlft.ReadSubnodes(const inNode, targetNode : TTreeNode; childNode : boolean = false);
begin
  if assigned(inNode) then
  begin
    if childNode then
      assignmentsTree.Items.AddChild(targetNode, inNode.Text)
    else
      assignmentsTree.Items.Add(targetNode, inNode.Text);
    ReadSubnodes(inNode.GetFirstChild,targetNode,true);
    ReadSubnodes(inNode.getNextSibling,targetNode);
  end;
end;

Danke