Поиск по ListBox

Ребята, подскажите поиск по ЛистБоксу. Необходимо, чтобы в Edit вписывалось слово и, если такое словое есть, то игнорировать, а если нету, то добавить в ListBox. Буду очень признателен за любую помощь.

Ответ

Не знаю как в старых версиях, но в последней Delphi XE2 регистр при сравнении не учитывается. Поэтому такой код работает без проблем: if ListBox1.Items.IndexOf(Edit1.Text) < 0 then ListBox1.Items.Add(Edit1.Text);