[Yurk@]

Код:

if RadioButton1.Checked then
case RadioButton1.ItemIndex of
0 : begin {текст} end;
1 : begin {текст} end;
...
n : begin {текст} end;
else {текст} end;