如何一次将form中的所有同类控件全部disable

例如将当前Form上所有的Edit都设为False
var
   i:integer;
begin
   for i:=0 to ComponentCount-1 do
      if (Components[i] is TEdit) then
          (Componenets[i] as TEdit).Enabled:=False; 
end;