Ein Vorschlag damit es bei langen Liste nicht so lange dauert:
Delphi-Quellcode:
CheckListBox1.Items.BeginUpdate;
Try
For i := Pred(checklistbox1.Count) DownTo 0 Do
If checklistbox1.Checked[i] Then
Checklistbox1.items.Delete(i);
Finally
CheckListBox1.Items.EndUpdate;
End;