TMenuItem wird nicht angezeigt unter componentes?

[mimi]

jetzt habe ich doch deinen code verwendet: Lannes
aber leider rufe ich ihn anscheid falsch auf:

Delphi-Quellcode:

procedure TForm1.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode;TreeView:TTReeView);
var z     : Integer;
    aItem : TMenuItem;
    aNode : TTreeNode;
    s     : string;
begin
  for z := 0 to aMenuItem.Count-1 do
    begin
    aItem := aMenuItem.Items[z];
    aNode := ANode2;
    s := aItem.Name;
    aNode := TreeView.items.Addchild(aNode,s);
    if aItem.Count > 0 then
      GetMenuItems(aItem,aNode,TreeView);//rekursiv
    end;//Ende for z
end;

procedure TForm1.BearbeitenClick(Sender: TObject);
begin
  Form5.TreeView1.Items.Clear;
  GetMenuItems(Fovoriten1,nil,Form5.TreeView1);
  Form5.ShowModal;
end;

aber den code leicht geändert.....