TCheckListBox -> Wie kann ich State zu weisen?

[Samashy]

Hallo Ihr Lieben,

ich hoffe jemand kann mir meine dumme Frage beantworten. Ich stehe grade auf der Leitung.
Ich füge Objecte in eine TCheckListBox. Nun möchte ich gerne den State entsprechend eines Wertes für jede einzelne Checkbox setzen. Was mache ich falsch?

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]:=cbChecked
    else If TVC_frage(vcfragenbox.Items[a]).wert_sek=1 then
       vcfragenbox.state[a]:=cbunChecked
    else vcfragenbox.state[a]:=cbGrayed;
end;

Danke für Eure Hilfe.

Samashy