Написать процедуру отображения или скрытия объектов на форме заданного класса. У процедуры реализовать 2 входящих параметра: класс объекта (TClass); состояние (Boolean) — Delphi(Делфи)

procedure TForm1.SetVisible(c: TClass; Vis: boolean);
var
  i: integer;
begin
  for i := 0 to ControlCount - 1 do
  begin
    if (Controls[i] is c) then
      Controls[i].Visible := Vis;
  end;
end;