[xbron]

Попробовал это, но теперь после 2-й добавленной строки, не сравнивается...

Код:

if listbox1.Items.Count<>0 then
 for i:=1 to listbox1.Items.Count-1 do
 begin
  f:=listbox1.Items.IndexOf(listbox1.Items.strings[i]);
   if f=1
      then
        begin
         if MessageDlg('Хотите добавить уже добавленную книгу?',
         mtConfirmation, [mbYes, mbNo], 0) = mrYes
           then
            begin
             break;
            end
           else
            begin
              listbox1.Items.Delete(i);
            end;
         end;
 end;