TMenuItem wird nicht angezeigt unter componentes?

[mimi]

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
    if aMenuItem.Items[z].Tag <> -2 then begin
      aItem := aMenuItem.Items[z];
      aNode := ANode2;
      s := aItem.Caption;
      aNode := TreeView.items.Addchild(aNode,s);
      if aItem.Count > 0 then
        GetMenuItems(aItem,aNode,TreeView);//rekursiv
    end;//Ende for z
  end;
end;

so sieht der code jetzt aus und er funktioniert so. alle einträge die nicht angezeigt werden sollen, müssen mit -2 gekennzeichnet werden. dann klappt es wunderbar.
Vielen dank für deine hilfe