怎么隐藏同种类型的控件

如何隐藏同种类型的控件
具体情况是这样~我的form1里加入了N多个frame，假设N不可数！我现在想用一个button将他们全部隐藏，应该如何高效率实现？

[解决办法]

Delphi(Pascal) code

procedure TForm1.test(temp:TControl;flag:boolean);var i:integer;begin  for i := 0 to ComponentCount - 1 do  begin    if temp.ClassName = Components[i].ClassName then      TWinControl(Components[i]).Visible := flag;  end;end;procedure TForm1.Button1Click(Sender: TObject);begin  test(Label1,false);//FALSE则隐藏，TRUE则显示end;