Recorrer un menu

[[Lepe]]

No tengo Delphi a mano, pero puedo comentar algunas cositas:
- Los bucles van desde el elemento cero hasta Count -1, pero tú te sales del rango, (yo quitaría el igual de la comparación:

Código Delphi [-]
i < mainmenu1.Items.Count

- Con el j pasa lo mismo, quítale el signo igual.
- Usas como contador de recorrido las variables "i" y "j", pero solo incrementas la "i"... de la "j" te has olvidado ... el copy y paste no es bueno
- La línea en rojo, debería quedar así:

Código Delphi [-]
j < mainmenu1.Items[i].Count

Eso compara "j" con la cantidad de elementos que tienes en el segundo nivel del menú.

En la ayuda dice que:

Código Delphi [-]
mainmenu1.Items.Items[i]

puede abreviarse como:

Código Delphi [-]
mainmenu1.Items[i]

Saludos