CheckBox anklicken

[abi]

Hallo
ich habe mehrere Checkboxen, jetzt soll immer nur eine Aktiv sein.

Das habe ich mit folgendem Code gelöst.

Code:

procedure TForm6.NummerClick(Sender: TObject);
begin

 // Nummer.Checked     := True;
  Geber.Checked      := False;
  DeviceName.Checked := False;
  Aufloesung.Checked := False;
  Seriennummer.Checked := False;
  Datum.Checked        := False;
  Arbeiter.Checked     := False;
  Abteilung.Checked    := False;

  if Nummer.Checked = true then begin
  unit1.Form1.qrSuchen.Close;
  unit1.Form1.qrSuchen.SQL.Delete (unit1.Form1.qrSuchen.SQL.Count-1);
  unit1.Form1.qrSuchen.SQL.Add('ORDER BY Nummer ASC');
  unit1.Form1.qrSuchen.Open;
  end;
end;

Mein Problem ist jetzt. Wenn eine box aktiv ist und ich eine andere auswählen will.
Muss ich zweimal auf die andere clicken, aber ich würde dies gern mit einem machen.

gruß
abi