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:
puede abreviarse como:
Saludos