TCheckListBox -> Wie kann ich State zu weisen?

[Klaus01]

Vielleicht so?

Delphi-Quellcode:

For a:=0 to vcfragenbox.items.count-1 do begin 
    If TVC_frage(vcfragenbox.Items[a]).wert_sek=2 then 
       vcfragenbox.state[a].Checked:=true;
    else If TVC_frage(vcfragenbox.Items[a]).wert_sek=1 then 
       vcfragenbox.state[a].checked:=false; 
    else vcfragenbox.state[a].enabled:=false; 
end;

Grüße
Klaus