| Если используешь RadioButton, проверяй у каждой свойство Checked, если RadioGroup - см. у него свойство ItemIndex. В первом случае можно сделать например так: procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then ShowMessage('RB 1 Checked!')
else if RadioButton2.Checked then ShowMessage('RB 2 Checked!')
else if RadioButton3.Checked then ShowMessage('RB 3 Checked!');
end; Естественно, вместо ShowMessage любые необходимые действия А для RadioGroup еще проще: procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('RB ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' Checked!');
end; (Только не забывайте, что элементы нумеруются с 0, т.е. первая radiobutton будет иметь индекс 0. В случае, если ничего не выбрано ItemIndex = -1)
| 
