Code vereinfachen

[Luckie]

So geht's:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TPanel then
    begin
      (Form1.Components[i] as TPanel).Visible := (Form1.Components[i] as
        TPanel).Tag = Combobox1.ItemIndex;
    end;
  end;
end;

Danke euch noch mal.