1:

if radiobutton1.checked then					

1:
2:
3:
4:
5:
6:
7:

if not (radiobutton1.checket) then
if not (radiobutton2.checket) then
if not (radiobutton3.checket) then
if not (radiobutton4.checket) then
begin
..
end;					

1:
2:

if radiogroup1.ItemIndex=-1 then
begin showmessage('blablabla');					

1:
2:
3:

Label1.Visible := 
  (not RadioButton1.Checked) and (not RadioButton2.Checked) and 
  (not RadioButton3.Checked) and (not RadioButton4.Checked);					

1:

Label1.Visible := (RadioGroup1.ItemIndex = -1);