Ayuda con TCheckListBox

[astur_racing]

Tengo un problema con un TCheckListBox, este tiene 12 opciones, y me gustaria saber cuantas de estas opciones estan activadas, lo intento asi:
for i:= 0 to Juegos.Items.Count - 1 do
if (Juegos.Selected[i]= true) then
contador := contador + 1;

Pero no funciona, ¿Me podrias decir como lo tengo que hacer?

Muchas gracias.