groupbox控件的小问题

groupbox组件下有4个checkbox组件
radiogroup有4个radio，caption分别为1、2、3、4
请问在选择radiogroup中的2，groupbox只能选择2个checkbox，请问程序如何实现？

Delphi(Pascal) code

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.Items[RadioGroup1.ItemIndex]='2' then
      SetEnabled(False);
end;

procedure TForm1.SetEnabled(bV: Boolean);
begin
  CheckBox1.Enabled:=bv;
  CheckBox2.Enabled:=bv;
end;