checklistbox.deleteselected funzt nicht

[Christoph Frank]

Hoppla,
der hat mir alle Blanks weggeschmissen, hier noch mal mein Beispiel:

[delphi]
CheckListBox1.Items.BeginUpdate;
Try
For i := Pred(checklistbox1.Items.Count) DownTo 0 Do
If checklistbox1.Checked[i] Then
Checklistbox1.items.Selected[i] := false;
Finally
CheckListBox1.Items.EndUpdate;
End;