关于RadioButton的一个菜鸟问题

Question

我在RadioGroup中添加了两个RadioButton 可是每次运行发现代码都是执行 选中RadioButton1后的那段代码，请问各位高手是怎么回事啊  万分感谢if( ADOqueryallinfor.FieldByName('卡类').AsString='A')then
      begin
        RadioGroup.Visible:=true;
        RadioButton1.Visible:=true;
        RadioButton2.Visible:=true;
      if ( warnning.Caption<>'OK!通 过 验 证!') then
       Showmessage('现在请进行照片审核');
      end；
      
 //若选中照片通过审核  
 if (RadioButton1.Checked=true) then
         Showmessage('照片已经通过审核');
         if(manualstyle.Checked=true) then
           begin
             if( ADOqueryallinfor.FieldByName('卡类').AsString<>'A')then
                begin
                  edit3.Enabled:=true;
                  edit3.SetFocus;
                 end
             else
                begin
                  testcard;
                end;
             end
         else if(autostyle.Checked=true )then
          begin
            self.gg:=1;
            testcard;
          end   //若选中照片未通过审核
       else if(photopassn.Checked=true) then
          MessageDlg('对不起，照片没有通过审核！请尽快到本中心重新提交照片！',mterror,[mbok],0);
       
       end;

Answer 1

估计是 “if (RadioButton1.Checked=true) then”后面少了一个begin
“//若选中照片未通过审核”前面少了一个end

Answer 2

if (RadioButton1.Checked=true) then
  begin//这里加上去
         Showmessage('照片已经通过审核');
         if(manualstyle.Checked=true) then
           begin
             if( ADOqueryallinfor.FieldByName('卡类').AsString<>'A')then
                begin
                  edit3.Enabled:=true;
                  edit3.SetFocus;
                 end
             else
                begin
                  testcard;
                end;
             end
         else if(autostyle.Checked=true )then
          begin
            self.gg:=1;
            testcard;
          end;
end  //这里也是//若选中照片未通过审核
       else if(photopassn.Checked=true) then
          MessageDlg('对不起，照片没有通过审核！请尽快到本中心重新提交照片！',mterror,[mbok],0);

Answer 3

我认为在radiogroup中好象不用再加radiobutton了吧，直接用radiogroup1.itemindex=...好象要好一点吧