No se si seré el único, pero no puedo leer lo que escribiste poniendo la solución que te pasé yo.
Por las dudas, la escribo ahora:
Código Delphi
[-]
if ChLB1.State[ChLB1.ItemIndex] =(cbChecked) then
ChLB1.State[ChLB1.ItemIndex ]:=(cbUnChecked)
else
ChLB1.State[ChLB1.ItemIndex]:=(cbChecked);
Saludos!