Si hablamos de hacerlo chiquito o compacto
Código Delphi
[-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if TCheckBox(Sender).Name = CheckBox1.Name then
CheckBox2.Checked:= not TCheckBox(sender).Checked
else
CheckBox1.Checked:= not TCheckBox(sender).Checked;
end;
Saludos