¿Y si preguntas por el valor de los cuatro radiobuttons?
Código Delphi
[-]
If (RadioButton1.Checked=False) and (RadioButton2.Checked=False) and (RadioButton3.Checked=False) and (RadioButton4.Checked=False) then begin
ShowMessage('No se puede continuar');
end;