TextQuery := 'ВЫБРАТЬ '#13#10'|ШтрихКоды.Объект.Ссылка КАК ТОВАР,'#13#10'|ШтрихКоды.ШтрихКод'#13#10'|from РегистрСведений.ШтрихКоды as ШтрихКоды'#13#10'|where ШтрихКоды.ШтрихКод = '+bar; //bar -строка со штрихкодом
      Q := Connect1C.NewObject('Запрос');
      if Q.Выполнить(TextQuery)=0 then begin
        mmoLog.Lines.Add('Товар с ШК '+bar+' - не найден!');
      end
      else begin
        Q.Следующий;
        P := Q.ТОВАР;
        sprNomenGr := P.ПолучитьОбъект();
        mmoLog.Lines.Add('Товар с ШК '+bar+' - '+sprNomenGr.Наименование);
      end;