1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TBuchMain.abelleverbergen1Click(Sender: TObject);
var  n  : Byte;  // oder shortint, integer ist viel zu groß;
    dbg : TComponent;
begin
  for n := 1 to 6 do    //componentcount?
  begin
    dbg := FindComponent('DBGrid'+ inttostr(n));
    with TDBGrid(dbg) do visible := false;
  end;
  if dbedit1.Visible then dbedit1.Visible := false;
  if maskedit1.visible then maskedit1.Visible := false;

  if groupbox8.Visible then KlassenMatrixSchliessen(Self)     // Klassenlisten
  else
  if groupbox4.Visible then                                   // and. Tabellen
  begin
    groupbox4.Visible := false;
    groupbox2.Visible := true;  {groupbox2.Height := splitter1.MinSize; splitter1.Visible := true;}
  end;
  labelAnz.Caption := '0'; label45.Caption := '0'; groupbox4.caption := '';
  if tntStringgrid4.Visible = false then tntStringgrid4.Visible := true;
end;                    

1:

If Components[i] is TDBGrid then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TBuchMain.abelleverbergen1Click(Sender: TObject);
var  n  : Byte;  // oder shortint, integer ist viel zu groß;
    dbg : TComponent;
    FoMain : TForm;
begin
  FoMain := TForm.Create(self);
  for n := 0 to FoMain.ComponentCount-1 do  // z.B. 6
  begin
    if (FoMain.Components[n+1] is TDBGrid) then
    begin
      dbg := FindComponent('DBGrid'+ inttostr(n+1));
      with TDBGrid(dbg) do visible := false;
    end;
  end;
....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);

var  n  : Integer;  // oder shortint, integer ist viel zu groß;
    FoMain : TForm2;
begin
  FoMain := TForm2.Create(self);
  for n := 0 to FoMain.ComponentCount-1 do  // z.B. 6
  begin
    if (FoMain.Components[n] is TDBGrid) then
    begin
      TDBGrid(FoMain.Components[n]).visible := false;
    end;
  end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var
  n:Byte;
  x:Integer;
begin
   x := -1;
   for n := 0 to x do memo1.Lines.add(IntToStr(n));

end;