Treeview rekursiv füllen?

[TriphunEM]

jo hab ich auch, aber ich komm mit dem DATA und Pointer nicht klar...

ich bekomm nur die Root-Ebene angezeigt, die Unterordner fehlen jedoch :

Weiß jemand woran es liegen kann???

Delphi-Quellcode:

procedure TMainform.Array2Treeview(Tree:TTreeView; folder:boolean);
var node,anode : TTreeNode;
    i, j : integer;
    chancel : boolean;
    P : PTBookmark;
begin
  //PTBookmarkTreeView1.Selected.Data)^.ID;
  for i := 1 to datacount do begin
    New(P);
    P.id := arr_data[i].id;
    P.parent_id := arr_data[i].parent_id;
    P.flag := arr_data[i].flag;
    P.position := arr_data[i].position;
    P.desc := arr_data[i].desc;
    P.url := arr_data[i].url;

    if arr_data[i].parent_id = 0 then begin
      Tree.Items.AddChildObject(nil, arr_data[i].desc, P);
    end
    else begin
      Node := nil;
      chancel := false;
      j := 0;
      while (j < Tree.Items.Count) and not chancel do begin
        if INTEGER(Tree.Items[j].Data) = arr_data[i].parent_id then begin
          chancel := true;
          Node := Tree.Items[j];
        end;
        inc(j);
      end;
      if chancel then
        Tree.Items.AddChildObject(Node, arr_data[i].desc, P);
    end;

  end;
end;