Simular dos radiobuttons con Checkbox

[[seoane]]

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
  // Solo hay problemas cuando los dos estan marcados
  if Ch2.Checked and Ch1.Checked  then
    // Desmarcamos el checkbox que no nos llamo
    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"