procedure para contenedores me da error

[AlejandroCalica]

mire los codigos que envaste y me pregunto si es posible que se modifique este

Código Delphi [-]
procedure TForm1.SetControlEnable(TheControls: array of TWinControl; Value: Boolean);
  var
    i : Integer;
begin
  for i := 0 to High(TheControls) do
    SetControlEnable(TheControls[i], Value);
end;

procedure TForm1.SetControlEnable(TheControl: TWinControl; Value: Boolean);
  var
    i : integer;
begin
  for i := 0 to TheControl.ControlCount - 1 do
  begin
    if TheControl.Controls[i] is TWinControl then
      SetControlEnable(TWinControl(TheControl.Controls[i]), Value)
    else
      TheControl.Controls[i].Enabled := Value;
  end;

  TheControl.Enabled := Value;
end;

con la finalidad de que pueda ser usado antecediendo un control padre como el Panel y poder usarlo para varar no solo la propiedad enabled sino quizas color o incluso el saber si existe un control vacio, creo esta seria la mejor manera de simplificar todo, controle un determinado grupo de controles, que tenga la faclidad de controlar su estado enabled y otras caracteristicas y que pudiera controlar todos los tipos de controles como son (edits,listbox,combobox y buttons). quien puede echarme la mano con esto jajajajajajajjajajajaaj