delphi listbox количество строк

Ответ от
function GetStrIndex(ListBox: TListBox; str: string): integer;
var
k,j,l: integer;
begin
l:=-1;
for k:=0 to ListBox.Items.Count-1 do
begin
if (ListBox.Items[k]=str) or (pos(str,ListBox.Items[k])<>0) then
begin
l:=k;
break;
end;
end;
result:=l;
end;
ListBox - компонента TListBox
Str - искомая строка
результат: индекс ячейки в которой содержится строка, если такой ячейки нет то результат -1