Vamos a ver que te parece esta solución. Usamos un solo evento OnClick para los dos checkbox, y dento colocamos esto:
Código Delphi
[-]
procedure TForm1.Ch1Click(Sender: TObject);
begin
if Ch2.Checked and Ch1.Checked then
if Sender = Ch1 then
Ch2.Checked:= FALSE
else
Ch1.Checked:= FALSE;
end;
PD: ¿Porque no usas radiobuttons? si quieres tener la opción de no marcar ninguno, siempre puedes añadir otro radiobutton con el caption "Ninguno de las anteriores"