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

procedure zaehlen ();
var zaehler,i:integer;
begin
for i:= 1 to form5.listbox1.Count - 1 do
begin
if strtoint(form5.ListBox1.Items[i]) = 1 then
zaehler:= zaehler+1;
end;
form5.edit1.Text:= inttostr(zaehler);
end;					

1:

  if form5.ListBox1.Items[i] = '1' then