Поиск текста в Listbox-е

[Молоток]

Уважаемые эксперты. Помогите с задачой.
Имеется Listbox, который заполняется при onactivate формы с sql таблицы. Имеется Timer, в событии onTimer имеется следующий код:

var i: integer;
begin
with Q5 do
begin
Q5.Close;
Q5.SQL.Clear;
Q5.SQL.Add('Select Otp from Chat');
Q5.SQL.Add('where Prin='+#39+Label3.Caption+#39);
Q5.Active:=true;
Q5.Open;
with ListBox5.Items do
for i := 0 to Count - 1 do
while not Q5.eof do
begin
if Strings[i]<>Q5.FieldByName('Otp').AsString then Listbox5.items.Add(Q5.FieldByName(' Otp').AsString);
Q5.Next;
end;
end;
end;

Здесь все нормально работает, но как сделать, чтобы имеющие значению в Listbox-е еще раз не добавлялись.

[Прик]

Есть метод IndexOf. В TListBox тоже (в Items). Ищет индекс по строке. Если возвращаемое значение -1, то строки в списке нет, если больше, то есть.

[Молоток]

если можно, опишите как писать и куда писать

[Прик]

  with ListBox5.Items do begin
    while not Q5.eof do begin
      if IndexOf(Q5.FieldByName('Otp').AsString) = -1 then
        Add(Q5.FieldByName(' Otp').AsString);
      Q5.Next;
    end;
  end;

Наименование полей не могут начинаться с пробела (недосмотр).

Проще в запросе отбросить повторяющиеся строки, а не цедить их здесь в коде.
Хотя, конечно, все зависит от задачи, о деталях которой ничего не известно.

[Молоток]

Спасибо ограмное. Все получилось. Всего Вам хорошего.