TGroupbox и TRadioButton вместо TRadioGroup

[Steepe_Hare]

Скажите, может я чего-то не понимаю, но зачем теперь вместо одного TRadioGroup нужно использовать TGroupbox и кучу TRadioButton?

И писать в несколько раз больше код:
 

      if RadioButton1.IsChecked then
        Level := 0
      else if RadioButton2.IsChecked then
        Level := 1
      else if RadioButton3.IsChecked then
        Level := 2
      else
        Level := 3;

      Level := RadioGroup1.ItemIndex;

 

[Alexander]

Как вариант могу предложить следующий алгоритм 

В RadioButton(I).Tag выставляете уникальный индекс. В обработчике onChange у RadioButton:

GroupBox.Tag := (Sender as TRadioButton). Tag;

Тогда для проверки можно использовать :

Case GroupBox.Tag of....