[Winny]

Точно! Вот здесь должны совпадать переменные:

Код:

for ii:=0 to listbox1.Items.Count-1 do begin
if s=listbox1.Items.Strings[i]  then begin