[delphi] liczenie slow listbox

witam.
jak mogę policzyć ilość cyfr '1' w listbox i ilość cyfr '2' ?
np. mam w listbox
1
2
1
1
1
2
i jaki kod posłuży do tego by w edit1 wyswietlilo mi ze jedynek jest 3, a w edit2 dwojek jest dwie :) ?
chodzi mi o liczenie nie o same wyswietlanie

Napisz chociaż ten ListBox ... Nie znam Delphi, ale można to zrobić tak, że jedziesz po wszystkich elementach w tym listboxie, i jeśli aktualny, bieżący, element zgadza się z tym (jest taki sam) jakiego ilość chcesz policzyć, zwiększasz jego ilość - quantity += 1.

//...
var
  Cyfra:Integer;
  IleCyfr:Integer;
  i:Integer;
//...
  Cyfra:=1;//szukana cyfra
  IleCyfr:=0;
  with ListBox1 do
    for i:=0 to Items.Count-1 do if Items[i]=IntToStr(Cyfra) then Inc(IleCyfr);