Ja nein Checkbox

[binio]

Hallo möchte eine ja nein Abfrage mit Checkboxen realisieren.
Ich weiss das es radio buttons gibt. Muss es aber für mein Projekt als Checkboxen realisieren.
Mein Problem ist nun folgendes:
Wenn ich mit der Tastatur ein der Checkboxen auswähle und <Leertaste> drücke klappt alles super.
Wenn ich jedoch mit der Maus auf eins der Checkboxen klicke kann ich auf einmal die Abfragt mit ja und Nein gleichzeitig beantworten, was ja nicht der Sinn einer Ja Nein Abfrage ist.
Mit der aktuellen Version habe ich ein Überlauf den ich nicht verstehe ja ich nur Checkboxen ändere und keine Arrays oder so fülle wo es ein Überlauf geben kann


Quellcode

Delphi-Quellcode:

procedure TForm1.checkjaKeyPress(Sender: TObject; var Key: Char);
begin
if not(checkja.Checked=true) then
  checknein.Checked:=false
else
  checknein.Checked:=true;
end;

procedure TForm1.checkneinKeyPress(Sender: TObject; var Key: Char);
begin
if not(checknein.Checked=true) then
  checkja.Checked:=false
else
  checkja.Checked:=true;
end;



procedure TForm1.checkjaClick(Sender: TObject);
begin
if (checkja.Checked=true) then
  begin
    checkja.Checked:=false;
    checknein.Checked:=true;
  end
else
  begin
    checkja.Checked:=true;
    checknein.Checked:=false;
  end;
end;

procedure TForm1.checkneinClick(Sender: TObject);
begin
if (checknein.Checked=true) then
  begin
    checknein.Checked:=false;
    checkja.Checked:=true
  end
else
  begin
    checknein.Checked:=true;
    checkja.Checked:=false;
  end;
end;

Ich hoffe Ihr könnt mir helfen
Mfg
Robert