一个关于checkbox的问题？？

Question

我想当checkbox1为真时 checkbox2为假
    当checkbox2为真时 checkbox1为假
下面我设的为什么会有冲突 问题在哪边？
procedure Txuanzef.CheckBox1Click(Sender: TObject);
begin
       checkbox1.Checked:=true;
       checkbox2.checked:=false ;end;procedure Txuanzef.CheckBox2Click(Sender: TObject);
begin      checkbox2.checked:=true;
      checkbox1.checked:=false ;
end;

Answer 1

checkbox1.checked := not checkbox2.checked

Answer 2

procedure Txuanzef.CheckBox1Click(Sender: TObject);
begin
       checkbox2.Checked:=not checkbox1.checked
end;