DBLookupListBox1DblClick

[kaar]

Вобщем в чем проблема.
У меня есть список DBLookupListBox, он подключен к базе все и прекрасно работает:

procedure Tchangeword.DBLookupListBox1DblClick(Sender: TObject);
begin
if i < 7 then  begin
MainF.mytab.Edit;
MainF.mytab.FieldByName('flag').AsInteger:= 1;
MainF.mytab.Post;
MainF.mytab.Next;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=DbLookupListBox1.SelectedItem;
StringGrid1.Cells[1,StringGrid1.RowCount-1]:=DbLookupListBox1.KeyValue;
StringGrid1.RowCount:= StringGrid1.RowCount+1;
inc(i);
end
else ShowMessage('Ла-ла-ла.');
end;

Т.е. по двойному клику мыши по списку, выбранный объект транслируется в стринггрид, так же для будущих манипуляций поле "флаг" в моей базе изменяется на единицу, вместо нуля, далее идет фильтр по "флагу"

Вот собственно в чем загвоздка, хочу исключить возможность выбора пользователем двух одинаковых слов.
DbLookupListBox1.SelectedItem возвращает нам непосредственно само слово из списка типа стринг.
DbLookupListBox1.KeyValue возвращает ключ с таблицы. целого типа.


использовать массив строк например, что бы проверять на совпадения ?

подскажите, пожалуйста методы. Сижу уже голова не варит, а сдаваться не охота.

[kaar]

неужели ни у кого нету никакой мысли?