5 Checkboxen checken nicht richtig!!!

[kumar89]

Sers Delphi-Programmierer,

Zu meinem Problem ich hab 5 Checkboxen auf einer Seite eingerichtet.
Es soll folgendes passieren, wenn einer von den ersten 4 Checkboxen angekickt wird, soll Checkbox 5 disabled werden.
Wird Checkbox 5 angeklickt sollen Checkbox 1-4 disabled werden.
Das hab ich bisher geschaft, aber wenn man gleichzeitig Checkbox 1 & 2 z.b. anklickt dann den Hacken bei Checkbox 2 wieder rausnimmt ist Checkbox 5 unerwartet aktiviert.

Andere Komponenten möchte ich in meinem Fall bitte nicht verwenden!

Mein Quellcode sieht so aus:

Delphi-Quellcode:

  if Checkbox1.checked then
     Checkbox5.enabled := False else
     Checkbox5.enabled := True;

Delphi-Quellcode:

Procedure Checkbox5click(Sender: TObject);
begin
 if Checkbox5.checked then
    begin
    Checkbox1.enabled := False;
    Checkbox1.checked := False;
    end
    else
    Checkbox1.enabled := True;

  if Checkbox5.checked then
    begin
    Checkbox2.enabled := False;
    Checkbox2.checked := False;
    end
    else
    Checkbox2.enabled := True;

  if Checkbox5.checked then
    begin
    Checkbox3.enabled := False;
    Checkbox3.checked := False;
    end
    else
    Checkbox3.enabled := True;

  if Checkbox5.checked then
    begin
    Checkbox4.enabled := False;
    Checkbox4.checked := False;
    end
    else
    Checkbox4.enabled := True;

Danke schon mal im voraus!!

Mit freundlichen Grüßen

Kumar89