Checklistbox

[RealSHELS]

Как узнать сколько занятых строк в checklistbox?
Я надеюсь правильно выражаюсь...

[N!ckeL]

var
  i, v:integer;
begin
v:=0;//занятые строки
  for i:=0 to CheckListBox1.Count-1 do
   begin
     if CheckListBox1.Checked[i] then
     v:=v+1;
   end;
end;

[NikLik]

Если честно--не очень понятно.
Общее кол-во строк-- checklistbox.items.count;
Количество выбранных строк:

var
  i, k: integer;
begin
  k := 0;
  for i := 0 to checklistbox1.Items.Count - 1 do
    if checklistbox1.Checked[i] then
      inc(k);
  form1.caption := inttostr(k);
end;

[RealSHELS]

Спасибо ребята.