Desabilitar algunos componentes del formulario

[Thoma]

Código Delphi [-]
procedure Frm1.DesactivarEdit;
var
   i:Integer;
begin
  for i := 0 to ControlCount - 1 do
    if Controls[i].ClassType = TEdit then
        Controls[i].Enabled := False;
end;

este es el codigo que estoy usando

el de oscarac me parece mas eficiente porque me podria servir para otros formularios pero no acabo de cogerle el truco.