5 Checkboxen checken nicht richtig!!!

[leddl]

Ich checks auch nicht richtig...
Kannst du das eventuell nochmal so erklären, dass das etwas verständlicher wird?

Im unteren Quellcode reicht übrigens eine einzige If-Abfrage.

Delphi-Quellcode:

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

    Checkbox2.enabled := False; 
    Checkbox2.checked := False;

    Checkbox3.enabled := False; 
    Checkbox3.checked := False; 

    Checkbox4.enabled := False; 
    Checkbox4.checked := False; 
end 
else 
begin
    Checkbox1.enabled := True; 
    Checkbox2.enabled := True; 
    Checkbox3.enabled := True; 
    Checkbox4.enabled := True;
end