[xbron]

Работает только по первому добавлению в список, а потом работает не правильно. О задаче: Есть пустой список, добавляю туда из Грида, а после если добавляется уже существующее в списке, то выводится сообщение о добавлении.

Код:

procedure Tform_books.Button4Click(Sender: TObject);
var i:integer;
begin
listbox1.Items.Add(adoquery1.fieldbyname('Название_книги').AsString);
if listbox1.Items.Count<>0 then
 for i:=1 to listbox1.Items.Count-1 do
   if listbox1.Items.Strings[i]=listbox1.Items.strings[i]
      then
        begin
         if MessageDlg('Вы действительно хотите добавить существующую книгу?',
         mtConfirmation, [mbYes, mbNo], 0) = mrYes
           then
            begin
             break;
            end
           else
            begin
              listbox1.Items.Delete(i);
            end;
         end;
end;