1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
var zahl: Integer;
begin
zahl:=Checklistbox1.Selcount;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var counter: integer;
   i: integer;
begin
 counter:= 0;
 for i:= 0 to checklistbox1.items.count-1 do
 begin
  if checklistbox1.checked[i] = true then 
   inc(counter);
 end;

 showmessage(inttostr(counter));
end;					

1:
2:
3:

if checklistbox1.checked[i] = true then 
   inc(counter);
 end;					

1:

Inc(counter, Abs(checklistbox1.checked[i]);