[v1s2222]

Ну можно примитивно. Есть разные способы, этот первый пришел в голову. Сравнивать class...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      TEdit(Components[i]).Visible := False;
end;