Obliczanie ilosci komponenta!

Jak policzyc ilosc zaznaczonych checkboxow na formie? :-/

Licznik:=0;

for i:=1 to form1.ComponentCount-1 do
begin
if form1.Components[i] is TCheckbox then
with form1.Components[i] as TCheckbox do
if checked=true then inc(licznik);
end;