procedure para contenedores me da error

[AlejandroCalica]

e modificado este procedure, que es para bloquear todos los controles edits dentros de un panel, para poder tener la opcion de controlar su propiedad Enabled ya sea en False o True, segun se requiera , pero para poder controlar todos los controles combobox, listbox, button que hace falta?

Código Delphi [-]
procedure Bloquear(Contenedor: TWinControl; Enabled:Boolean);
var i: integer;
begin
  for i := 0 to Contenedor.ControlCount - 1 do
    begin
      if Contenedor.Controls[i] is TEdit then TEdit(Contenedor.Controls[i]).Enabled:=Enabled
      else
       if Contenedor.Controls[i] is TWinControl then Bloquear(TWinControl(Contenedor.Controls[i]);

end;  end;

y la intencion es llamarlo asi

Código Delphi [-]
Bloquear(Panel1),True;

gracias por todo
aaaaaaaa ya recorde colo que corchetes y la palabra delphi al inicio y al final de cada codigo esperando que sea la forma correcta, si no fuera asi pido que me expliquen como hacerlo porfaaaaa