Ya no me marca error ahora entra al ciclo pero durante el mismo en la propiedad Name de cada "item" me devuelve en Blanco que estaré poniendo mal:
Código Delphi
[-]
for y:=0 to TMainMenu(tForm(reference).Components[x]).Items.Count do begin
Stringx:=TMainMenu(tForm(reference).Components[x]).Items.Name;
end;
La variable Stringx agarra el valor en Blanco.
Cualquier comentario se los agradezco.
Saludos.