anchor.diff:          if (not Self.IsVyznam(str)) then
             Self.vyznamy.Add(TFuncVyznam.Create(str))
           else begin
  -          i := Self.GetVyznamIndex(str);
  -          Self.vyznamy.Delete(i);
  -          Self.vyznamy.Insert(i, TFuncVyznam.Create(str));
  +          Self.vyznamy.Delete(Self.GetVyznamIndex(str));
  +          Self.vyznamy.Add(TFuncVyznam.Create(str));
           end;
         end;
       end;
  
positive.code: procedure TFuncsVyznam.ParseNewItems(data:string);
  var sl:TStrings;
      str:string;
      i:Integer;
  begin
   sl := TStringList.Create();
   try
  
negative.code:  finally
     strs.Free();
   end;
   Self.vyznamy.Sort(TFuncVyznam.Comparer());
  
   if (Assigned(Self.OnChange)) then Self.OnChange(Self);
  end;
  