Invalid call typecast - As TMenuItem

[dmguridi]

Esoy recorriendo los componentes de un form y analizando las caracteristicas de los menues, labels, botones, etc de este form de la siguiente forma.
Nota: la funcion Traducir devuelve el texto pasado por parametro en un idioma determinado


begin

for i := Form1.ComponentCount - 1 downto 0 do

[i]if Form1.Components.ClassName = 'TLabel' then

[i]Form1.Components[i] As TLabel).Caption:= Traducir((Form1.Components As TLabel).Caption)

[i]else if Form1.Components.ClassName = 'TMenuItem' then

[i]Form1.Components[i] As TMenuItem).Caption:= Traducir((Form1.Components As TMenuItem).Caption) {*******}

[i]else if Form1.Components.ClassName = 'TButton' then

[i]Form1.Components[i] As TButton).Caption:= Traducir((Form1.Components As TButton).Caption);

end;

Esto funciona para todos los tipos de objetos pero para el tipo TMenuItem o TTabSheet produce un error en ejecucion "Invalid class typecast

Aguien podria decirme por qué pasa esto?
Gracias
Tota