Treeview rekursiv füllen?

[TriphunEM]

ich hab den code um die daten in ein mainmenü zu schreiben.

allerdings bekomm ich das nicht hin, es für ein treeview umzuschreiben!
kann mir da einer weiterhelfen...

Delphi-Quellcode:

  for i:=1 to datacount do
    Array2Toolbar(Mainmenu.Items, arr_data[i].parent_id, arr_data[i].id, arr_data[i].desc);


function TMainform.Add2Menu(Menu:TMenuItem; Parent_ID, ID: integer; Description): Boolean;
var i : Integer;
    TempMenu : TMenuItem;
    Added : boolean;
begin
  Added:= False;
  if Parent_ID = 0 then begin
    TempMenu:= TMenuItem.Create(Menu);
    TempMenu.Caption:= Description;
    Tempmenu.Tag:= ID;
    Menu.Add(TempMenu);
    Added:= True;
  end else
  begin
    i:=0;
    while (i < Menu.count) and (Added = False) do begin
      if Menu.Items[i].Tag = Parent_ID then begin
        TempMenu:= TMenuItem.Create(Menu);
        TempMenu.Caption:= Description;
        TempMenu.Tag:= ID;
        Menu.Items[i].Add(TempMenu);
        Added:=True;
      end else begin
        Added := Add2Menu(Menu.items[i], Parent_ID, ID, Description);
      end;
      inc(i);
    end;
  end;
  result:=Added;
end;