[VilR]

Пробовал через условия if RadioButton1.Checked=TRUE or RadioButton2.Checked=TRUE or ...... then
действие
-------------------
срабатывает только на первой радиокнопке, для остальных условие не работает. как правильно сделать ?
суть задачи в том, чтобы не выпускать из формы, пока не нажата хотя бы одна из радиокнопок (по умолчанию все устанавливаются в False, так надо ;-))

[The Shadow]

Все нормально

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=RadioButton1.Checked or RadioButton2.Checked or RadioButton3.Checked;
end;

Форма не закроется пока хотя бы один из них не выбран

[VilR]

Спасибо, все получилось :-)