Hvorfor virker dette ikke

Hvor for springer delphi over min MessageDlg selv om at alle mine RadioButton1.Checked = False  ?????


If RadioButton1.Checked = False  and  RadioButton2.Checked = False and
      RadioButton3.Checked = False and RadioButton4.Checked = False Then

      begin
      MessageDlg('Der mangler at blive valgt en overflade behandling !.'
      , mtInformation,[mbOk], 0);
      exit
      end;