Habilitar y desabilitar controles

[wilcg]

Hola amigos del foro, necesito su ayuda.
Deseo implementar un proceso para habilitar y desabilitar (TEdit, TCombobox, TButton) solo los deseados con una sola linea de codigo.
- estoy trabajando en esto, pero falta mucho alguien que me ayude.

Código Delphi [-]
procedure HabilitControl(const controles :TStrings);
var
  i :integer;
begin
  for i:= controles.Count-1 downto 0 do
    if controles[i] = (TWinControl[i] is TEdit) then
      TEdit[i].Enabled := True
    else
    if controles[i] = (TWinControl[i] is TComboBox) then
      TComboBox[i].Enabled := True
    else
    if controles[i] = (TWinControl[i] is TButton) then
      TButton[i].Enabled := True
end;

y llamaria la accion asi

Código Delphi [-]
procedure TFode.Button1Click(Sender: TObject);
begin
  HabilitControl(Edit1, Edit2, ComboBox5, BitBtn3);
end;