Code vereinfachen

[Luckie]

Ich habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case Combobox1.ItemIndex of
    0:
      begin
        pnlEspacenet.Visible := True;
        pnlUSPTO.Visible := False;
      end;
    1:
      begin
        pnlEspacenet.Visible := False;
        pnlUSPTO.Visible := True;
      end;
  end;
end;

In Abhängigkeit der Auswahl in der Kombobox werden Panels sichtbar gemacht. Die anzahl der Panels entspricht dabei der anzahl der Items in der Combobox. Bei zwei Itmes und zwei zuigehörigen Panels geht es ja noch, bei drei eventuell auch noch. Aber dann wird es schon unübersichtlich. Meine Frage nun, wie kann man das eleganter lösen?