deshabilitar componentes a traves de una lista

[DarkBlue]

Hola ahora quisiera saber como desabilitar componentes por medio de una lista ya que ya encontre como desabilitar componentes dependiendo de la clase que sean ...

Código Delphi [-]
Procedure ActDescBotones(Valor:Boolean); 
Var 
i: integer; 
Begin 
for i := ComponentCount - 1 downto 0 do 
begin 
if Components is TButton then 
TButton(Components).Enabled := False; 
end; 
End;

intente modificar el codigo pero me hace falta conocimiento e imaginacion , tengo en un arreglo de string (desabilita) los nombres de los componentes que quiero desabilitar pero no se me ocurre una manera intente algo como esto pero nisiquiera corre jajaja . Ademas que me sorprende eso del IS que es?

Código Delphi [-]

for x:=0 to length(desabilita) do
begin


if inventario.Components[X].Name=desabilita[x] then
TComponent(inventario.Components[x]).Enabled := False;

end;

por su atención gracias