Wartości w ListBoxie

Mam pytanko: czy jest jakaś funkcja/procedura, która pozwala sprawdzić, ile razy dana wartość występuje w ListBoxie?

Z góry dziękuje.

nie. sprawdź sobie sam w pętelce.

Możesz to zrobić tak powinno działac pisłem z pamięci

var
   I : Integer;
  j:byte;
begin
   j:=0;
   for I := 0 to ListBox1.Count-1 do
   if Pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(ListBox1.Items[I])) > 0 then 
      begin
       Application.ProcessMessages;
       j:=j+1;
             end;
end;

Application.ProcessMessages;

Czy to i AnsiUpperCase jest faktycznie potrzebne?
Czemu nie może być po prostu UpperCase?

Czemu nie może być po prostu UpperCase?

A nie prościej zajrzeć do helpa?

spóbuj zamienić taki ciąg 'ąęśćżńół' przy pomocy UpperCase.