TRadioGroup

// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TRadioGroup";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Переключайте радио-кнопки";

// RadioGroup
rdg=new TRadioGroup(frm);
rdg.Caption=" Группа радио-кнопок ";
rdg.SetBounds(10,10,frm.ClientWidth/3,stb.Top-20);
rdg.OnClick=rdg_Click;

// Создание радио-кнопок
for (i=0;i<9;i++)
  rdg.Items.Add("Радио-кнопка "+(i+1));

// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Left=rdg.Left+rdg.Width+10;
pnl.Top =rdg.Top;
pnl.Width =frm.ClientWidth-pnl.Left-15;
pnl.Height=rdg.Height;
pnl.Color=clWhite;

frm.ShowModal();

// Обработчик события OnClick
function rdg_Click(rdg)
{
  var rdg_Str=rdg.Items[rdg.ItemIndex];

  stb.SimpleText=" Выбрана "+(pnl.Caption=rdg_Str);
}