Código Delphi [-] if not(rb1.Checked or rb2.Checked or rb3.Checked or rb4.Checked) then ShowMessage('Ninguno seleccionado');
if not(rb1.Checked or rb2.Checked or rb3.Checked or rb4.Checked) then ShowMessage('Ninguno seleccionado');