Проверка listbox на содержание определенного слова

[medved6216]

Как осуществить проверку listbox на содержание определенного слова и потом удалить эту строку.
Пример
Строка "Hello World!//index"
Мне нужно найти и удалить именно строку с index.
Что-то на ум ничего не приходит.

[evg_m]

ListBox1.Irems.Indexof( ); если строгое (с учетом регистра строчные\прописные)

[Luuzuk]

var i: integer;
     SearchText: string; // текст, который ищем
begin
  for i:=0 to ListBox.Items.Count-1 do
    if pos(SearchText,ListBox.Items[i]) > 0 then
	begin
	  ListBox.Items.Delete(i);
	  break;
	end;
end;

[medved6216]

SearchText := 'index';
  for i:=0 to sListBox1.Items.Count-1 do
    if pos(SearchText,sListBox1.Items[i]) > 0 then
	  sListBox1.Items.Delete(i);

Использовал для удаления всех срок.
Но вылетает ошибка: list index out bounds ()

[Аватар]

for i:=sListBox1.Items.Count-1 downto 0 do ...

[medved6216]

Ох, точно) Спасибо)