procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
CheckBox2.OnClick := nil;
CheckBox2.Checked := false;
CheckBox2.OnClick := CheckBox2Click;
end;
CheckBox1.Checked := true;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
begin
CheckBox1.OnClick := nil;
CheckBox1.Checked := false;
CheckBox1.OnClick := CheckBox1Click;
end;
CheckBox2.Checked := true;
end;