Цикл проверки

[sg-ua]

Не могу разобраться с циклом, есть Label, в нем есть текст, нужно что бы при нажатии на кнопку программа проверяла в listview есть ли такая запись Label.Text в Item.Text, если есть записываем что есть и завершаем цикл, если нет такой строчки то добавляем...
цикл в конце, но он не работает так как нужно, сначала не проходит весь цикл, а сразу выполняет условие.....помогите пожалуйста

procedure TForm2.ListView1Click(Sender: TObject);
var
  LItem: TListViewItem;
  ms: TMemoryStream;
  begin
     ListView2.ClearItems;
     MyQuery1.Active:=false;
     MyQuery1.SQL.Text:='select * from dish, type where type.id_type=dish.id_type and type.name_type= :parType';
     MyQuery1.Params.ParamByName('parType').Value:=ListView1.Selected.Text;
     MyQuery1.Active:=true;
     while (not myQuery1.Eof) do
          begin
            LItem := ListView2.Items.Add;
              LItem.Text:=MyQuery1.FieldByName('name_dish').AsString;
            LItem.Detail:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
            IdHTTP1 := TIdHTTP.Create(Application);
            ms := TMemoryStream.Create;
            IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , ms);
            LItem.Bitmap.LoadFromStream(ms);
            MyQuery1.Next;
          end;
     TabControl1.Next();
  end;
 
 procedure TForm2.ListView2Click(Sender: TObject);
 var mss: TMemoryStream;
begin
  MyQuery1.Active:=false;
  MyQuery1.SQL.Text:='select * from dish where name_dish= :parDish';
  MyQuery1.Params.ParamByName('parDish').Value:=ListView2.Selected.Text;
  MyQuery1.Active:=true;
  DishDetailName.Text:=MyQuery1.FieldByName('name_dish').AsString;
  IdHTTP1 := TIdHTTP.Create(Application);
  mss := TMemoryStream.Create;
  IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , mss);
  DishDetailIcon.Bitmap.LoadFromStream(mss);
  DishDetailPrice.Text:='Ціна: '+MyQuery1.FieldByName('Ціна').AsString+' гривень';
  DishDetailСomposition.Text:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
  TabControl1.Next();
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var
  proverka: string;
  i: integer;
 
begin
 
 
  for i:=0 to ListView3.Items.Count-1  do
  begin
    if (ListView3.Items.Item[i].Text=DishDetailName.Text) then
    begin
      label1.Text:='yes';
    end
    else
    begin (ListView3.Items.Item[i].Text<>DishDetailName.Text)
      ListView3.Items.Add.Text:=DishDetailName.Text;
    end;
  end;
 
 
 
  end;

[evg_m]

1) сначала считаем что нужного нет

      label1.Text:='NO';

2) потом проверяем ВСЕ

  for i:=0 to ListView3.Items.Count-1  do
  begin
    if (ListView3.Items.Item[i].Text=DishDetailName.Text) then
    begin
      label1.Text:='yes';
    end
 end;

3) а теперь ДЕЛАЕМ то что хотим в зависимости от результатов проверки

   if label1.Text='NO' then begin
      ListView3.Items.Add.Text:=DishDetailName.Text;
    end;