Как задать 2 действия для Итеминдекса в комбобоксе?

[Ekzamenator]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 case combobox1.ItemIndex of
 0:Edit1.Text:='100' and Edit2.Text:='100';

выдает ошибку

[SERG1980]

Всё намного проще

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 case combobox1.ItemIndex of
 0: begin
      Edit1.Text:='100';
      Edit2.Text:='100';
     end;
 1: begin
     end;
//и так далее