Помогите упросить код...

[RaMoNeZz]

Доброго времени суток! Вообщем у меня кое какие затруднение появились...
есть база, в ней имееться справочник Наименований(обычный текстовый файлик с наименованиями, для упрощения ввода данных). появилась проблема при добавлении новой записи в справочник проверить есть ли такая запись в справочнике или нет если нет добавить... я написал вот так, вроде работает, но мне кажеться что то тут не так....

//O_o
for i:=0 to dbcombobox1.Items.Count-1 do  //считаем сколько строк в справочнике 
 begin
if dbcombobox1.Items.Strings[i]=dbcombobox1.Text //проверка равен ли текст, строке
then  proverka2:=0    // если да, то проверка2 равна 0
 else proverka:=7;   // если нет, то проверка равна 7
 end;
 if (proverka=7) and (proverka2=1)  then  // если проверка равна 7 и проверка2 равна 1
 begin if application.MessageBox('Добавить запись?','В справочнике нет такой записи', mb_yesno)=id_yes // то вывдим диалоговое окошко, да или нет
 then
 dbcombobox1.Items.Add(dbcombobox1.Text); // елси да, тогда добовляем запись
dbcombobox1.savetofile('naimenovanie.dim'); сохраняю в файлик
//if d1.post.Modified then d1.post.Post;
//close;
end;
 end;

как эту кашу упростить? помогите пожалуйста

[dr.Chas]

 proverka:=1;  //сразу подрузамиваем что такого текста нет
  for i:=0 to dbcombobox1.Items.Count-1 do //считаем сколько строк в справочнике 
  begin
     if dbcombobox1.Items.Strings[i]=dbcombobox1.Text //проверка равен ли текст, строке
     then begin
            proverka:=0;  
            break; //смысл продолжать дальше цикл если уже совпало? можно вообще выйти из процедуры
            //если нет необходимости выполнять её дальше, с помощью exit;
          end; 
  end;
  if proverka=1 then 
  begin 
    if application.MessageBox('Добавить запись?','В справочнике нет такой записи', mb_yesno)=id_yes // то вывдим диалоговое окошко, да или нет
    then dbcombobox1.Items.Add(dbcombobox1.Text); // елси да, тогда добовляем запись
    dbcombobox1.savetofile('naimenovanie.dim'); сохраняю в файлик
//if d1.post.Modified then d1.post.Post;
//close;
  end;

вот чё пришло в голову

[RaMoNeZz]

Спасибо, я пока начинаю потихоньку...не знал что можно остановить цикл...из за этого 2 переменные мне это поможет

[evg_m]

добавлю

if proverka=1 мы и так это знаем потому что, как только

proverka:=0 то мы заканчиваем цикл (break) значит это проверять не надо.
если проверять не надо то и переменная не нужна.

хотя нет пригодится чтобы знать результат после цикла.