Baumstruktur kopieren - Ansatz gesucht

[Grolle]

Hi,

versuche mich gerade an einer rekursiven Prozedur. Leider werden die Parents nicht korrekt zugeordnet

Delphi-Quellcode:

procedure Tlft.copyTree(machineId, parent : integer; startNode : TTreeNode);
var
  tmpId : integer;
  tmpData : TAssignmentData; // Record
begin
  if assigned(startNode) then
  begin
    {Daten des bestehenden Knotens auslesen}
    tmpData := data.getAssignment(integer(startnode.Data));
    {Knoten neue Maschine zuweisen}
    tmpData.machine := machineId;
    {Knoten liegt auf der obersten Ebene}
    if tmpData.parent <> 0 then
      tmpData.parent  := parent;
    tmpId   := data.insertAssignment(tmpData);

    copyTree(machineId, tmpId, startnode.getFirstChild);
    copyTree(machineId, tmpId, startnode.getNextSibling);
  end;
end;

Hilfe!