Aktion entsprechend ComboBox...

[Stern]

Kann ich bei in Delphi bei der Case-Abfrage immer nur eine Aktion pro item durchführen?
Also:

Delphi-Quellcode:

case ComboBox.ItemIndex of
  0: eineAktion;
  1: eineAktion;
  ...
end;

Was mache ich dann, wenn ich aber soetwas brauche?

Delphi-Quellcode:

case ComboBox1.ItemIndex of
      0:qrMain.SQL.Clear;
        qrMain.SQL.Text:= 'SELECT blabla1;';
        qrMain.Active:= True;
        qrMain.open;
        brake;
      1:qrMain.SQL.Clear;
        qrMain.SQL.Text:= 'SELECT blabla2;';
        qrMain.ParamByName('jahr').asString := Jahr;
        qrMain.Active:= True;
        qrMain.open;

Letzte Doofi-Frage für heute...

Liebe Grüße
Steffi