Farben mehrerer Panels Ändern

[Gehstock]

Delphi-Quellcode:

Procedure TEditor.PanelClick(Sender: TObject);
Begin
 with Sender as TPanel do
  begin
   case Tag of
    2..10,12..20,22..30:
                        Begin
                         if TPanel(FindComponent('Panel' + InttoStr(Tag))).Color = clBtnFace then
                          TPanel(FindComponent('Panel' + InttoStr(Tag))).Color := clBlack
                         else
                          TPanel(FindComponent('Panel' + InttoStr(Tag))).Color := clBtnFace;
                        End;
   end;
  end;
 End;

ich will Eine Procedur für 27 Panels nutzen aber wieder der fehler mit der Exeption