1:
2:
3:
4:

Panel1.Color:=clBlack;
Panel2.Color:=clBlack;
...
Panel100.Color:=clBlack					

1:
2:
3:
4:
5:

For i:=1 to 100 do 
Begin
  befehl:='Panel'+IntToStr(i)+'.Color:=clBlack';
  ausfuehren(befehl);
End;					

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

procedure CangePanelColor(PanelNr : Integer; Farbe : tColor);
  VAR
     Compo : tComponent;
BEGIN
  Compo := FindComponent('Panel' + IntToStr(PanelNr));
  IF (Compo IS tPanel) THEN
    tPanel(Compo).Color := Farbe;
END;					

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

With Form1 do
Begin
  Compo := FindComponent('Panel' + IntToStr(Lauf));
  IF (Compo IS tPanel) THEN
  Begin
     anzahl:=Compo.ComponentCount;
     .....
  End;
End;					

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

procedure TForm1.FormCreate(Sender: TObject);
  VAR
    But : tButton;
begin
  But := tButton.Create(Panel1);
  But.Parent := Panel1;
  But.Caption := 'Test';					

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

Compo := FindComponent('Panel' + IntToStr(Lauf));
IF (Compo IS tPanel) THEN
Begin
   For Lauf2:=1 to MaxButtons do
   Begin
      Compo2 := FindComponent('Button' + IntToStr(Lauf2));
      IF (Compo2 IS tButton) and TButton(Compo2).Parent = TPanel(Compo) then
      Begin
         ......
      End;
   End;
End;