Simular dos radiobuttons con Checkbox

[TriLoCBA]

Necesito simular el efecto de seleccion unica que poseen los radiobutton con un par de checkbox (Ch1 y Ch2), y no consigo que funcionen :

Código Delphi [-]
procedure TForm1.Ch1Click(Sender: TObject);
begin
  Ch1.Checked:=True;
  if Ch2.Checked then Ch2.Checked:=False;
end;

procedure TForm1.Ch2Click(Sender: TObject);
begin
  Ch2.Checked:=True;
  if Ch1.Checked then Ch1.Checked:=False;
end;

Desde ya muchas gracias por vuestra ayuda...

Un abrazo...

TriloCba