Contar Items en un MainMenu

[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:

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.