Люди... человек конкретный вопрос задал. Я посмотрел тело цикла.  Так и не понял, как j стал больше?

Возможно rrr не инициализирован нулем, когда с интовой переменной такое происходит, в дельфи бывают чудеса.

ElasticSearch знаешь? 😁

for I := 0 to tf1k8work2.count-1 do
   begin
   s1:=get_stolb(tf1k8work2.Strings[i],4);  //поиск в описании
   s1:=normalstr(s1);
   kolvo_vkus1:=0;
   rrr:=vkus.Count;
   rrr:=rrr-1;
   ttt:=0;
   //while eee=1 do

   for ttt := 0 to rrr do
         begin
          if j<135 then
           begin
           //ttt:=ttt+1;
           sss1:=vkus.Strings[ttt];
           if sss1='' then sss1:='--------';

           s2:=copy(sss1,0,4);
           ggg:=' '+s2;

           if pos(ggg,s1)>0 then
               begin
                 //log('!!! ищем вкусы шаг 1 2222');
                 bigstat1:='вкус найден';
                 vkusstat:= vkus.Strings[j];
                 kolvo_vkus1:=kolvo_vkus1+1;
                 eee:=eee-1;
                 //log('777'+bigstat1);
                 //log(inttostr(pos(s2,s1)));
                 //log('!!!!найден вкус: ' + vkus.Strings[j]+ ' в строке ' + tf1k8work2.Strings[i]) ;
               end;
            end;
         end;
   end;

Подскажите ссылку на пример как из делфи через com подключаться к 1с на удаленном компе. Я пока понять не могу, comcntr.dll можно просто выдернуть с рабочей базы зарегистрировать в системе где нет 1С и подключаться или придется полную версию 1с-ки накатывать? К рабочему серверу где установлена 1С доступа нет. Есть пока только учетка, имя сервера и знаю номер версии 1С - 8.3.13.1690.

К 1с подключится через ком

Забрать справочник сотрудников из 1с используя ком подключение