[roman]

Intenta así:

Código Delphi [-]
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;

// Saludos