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