Cómo recorrer el menú principal en Delphi y mostrarlo en vista de árbol

Procesar árbol de menú (aMenuItem: TMenuItem; aTreeview: TTreeView; aTreeNode: TTreeNode);

Definir variables

I: entero;

nuevo nodo: TTreeNode;

Comenzar //Copiar el menú al nodo del árbol

For i:=0 a aMenuItem. Cuenta-1 hacer

Iniciar

nuevoNodo:=aTreeview. Items.AddChild(aTreeNode, aMenuItem[i]. Subtítulos);

MenuToTree(aMenuItem[i], aTreeView, nuevo nodo

Fin; End;

//La siguiente es una declaración de llamada para copiar todos los menús de MainNemu1 a Treeview1.

MenuToTree(MainNemu1. Elementos, TreeView1, nil

);