по нажатию кнопки проверить активна ли радиокнопка

[Mad_Cat]

if radiobutton1.checked or radiobutton2.checked or radiobutton4.checked or radiobutton3.checked then
ShowMessage('Активна какая-то')
else
ShowMessage('Неактивна не одна');

[саша40]

тогда так:

if (radiobutton1.Checked=true) or (radiobutton2.Checked=true) or (radiobutton3.Checked=true) or (radiobutton4.Checked=true) then 
showmessage('Активна') 
else 
showMessage('Неактивна');

[Yurk@]

или

var
  i : integer; // счетчик
  chk : boolean; // признак "чекнутости"
  cmp : TComponent; // активный компонент
begin
  chk := False; // инициализируем результат
  for i := 0 to Form1.ComponentCount-1 do // перебираем по очереди все компоненты на форме
  begin
    cmp := Form1.Components[i];
    if cmp is TRadioButton // если текущий компонент - радиобуттон
    then
      if (cmp as TRadioButton).Checked = True // и если он "чекнутый"
        then chk := True; // то ставим признак что как минимум 1 элемент выбран
  end;
  if chk = True // ну и проверяем результат работы
  then
    ShowMessage('Продолжаем работу')
  else
    ShowMessage('Ничего не выбрано');
end;

[Алексей_2012]

саша40, я пробовал ваш вариант в первую очередь, он немного не так отработает, но за подсказку спасибо

Yurk@ спасибо за код, вечером посмотрю