Выход из цикла (Delphi)

[qadhhj]

for i:=0 to   form1.combobox1.items.count-1 do
        if AnsiComparetext(edit1.Text,form1.combobox1.Items.Strings[i]) =0
          then
           ShowMessage('Такая тема уже существует')
          else
form1.combobox1.Items.Add(sedit1.text);

Подскажите как мне выйти из for перед добавлением строки, а то добавляет сразу несколько (в зависимости от длинны списка)

[Hacker19_90]

break не пробовали?

[evg_m]

for i:=0 to   form1.combobox1.items.count-1 do
        if AnsiComparetext(edit1.Text,form1.combobox1.Items.Strings[i]) =0
          then
           ShowMessage('Такая тема уже существует')
          else
form1.combobox1.Items.Add(sedit1.text);

А если искомая тема (та котрую хотим добавить) окажется в списке не первой Ваш код ее добавит не задумываясь

nfindindex:=-1;
for i:=0 to form1.combobox1.items.count-1 do
   if AnsiComparetext(edit1.Text,form1.combobox1.Items.Strings[i]) =0
   then begin
      nfindindex:=j;
      break;
   end;

if nfindindex>=0 then
  ShowMessage('Такая тема уже существует')
else
  form1.combobox1.Items.Add(sedit1.text);