Contar Items en un MainMenu

[AGAG4]

Si alguien sabe el Número de Items de un MainMenu es decir este mismo componente tiene una propiedad "Count", pero tengo una función que no se encuentra dentro de la forma en donde esta el MainMenu es por eso que hago esto:

for x := 0 to TMainMenu(tform(reference)).Items.Count do begin


Pero el Detalle es que me Marca Error <Access Violation direction A4323>en la instrucción, el motivo de que quiero saber el número de items, es de barrer esta lista y compararla con un archivo de Texto en el que contiene el Nombre de cada Item que en conclusión si algún Item no se encuentra en la Lista del Archivo de texto entonces no lo muestro(Visible:=false). Espero me haya Explicado.

Cual será la forma correcta de referenciar un MainMenu para saber el Número de Items????

Agradezco cualquier comentario.

[AGAG4]

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:

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.

[AGAG4]

Ya lo corregí Gracias a un Link del Sr. Neftali lo dejo por si alguien no necesite....
http://www.clubdelphi.com/foros/showthread.php?t=14035&highlight=MainMenu

[Neftali [Germán.Estévez]]

...a un Link del Sr. Neftali...
Por favor, nada de Sr., Neftalí "a secas" que con lo de Sr. parece que me pongas 15 años encima...;)

[AGAG4]

Ok... de acuerdo Sr. Neftali hoooo perdon Neftali :)

Que tenga buen día.