Можно ли как-то реализовать поиск по ListBox в Delphi?

Question

Holod · Accepted Answer

Чем 
i:=lst1.Items.IndexOf('value_of_string') 
плох?

Александра Ростовцева · Answer

Ну да 
Читаем построчно из листа и сравниваем искомое/ 
нашли. запоминаем номер item 
перемещаемся на него

Никита Коршунов · Answer

Только цикл вида for i := 0 to ...do, читающий значения из всех строчек и сравнивающий с искомым.

Andrey Andrey · Answer

Метрозацепер, почему только for .. to .. do ? 
Разве нельзя repeat .. until ? 
Или while .. do ? 
Вот небольшой пример на Delphi 7 
procedure TForm1.Button1Click(Sender: TObject); 
var 
i:Integer; 
begin 
 i:=0; 
 repeat 
 if ListBox1.Items.Strings[ i ]=Edit2.Text then 
 begin 
 ShowMessage('Совпадение в строке '+inttostr(i)+#13+listbox1.Items.Strings[ i ]); 
 Exit; 
 end; 
 i:=i+1; 
 until i=ListBox1.Count; 
ShowMessage('Совпадений не найдено'); 
end; 
 
P.S.: [ i ] - везде без пробелов