anchor.diff:   finally
      strs.Free();
    end;
  + Self.vyznamy.Sort(TFuncVyznam.Comparer());
   
    if (Assigned(Self.OnChange)) then Self.OnChange(Self);
   end;
  
positive.code:    sl.Free();
   end;
  
   if (Assigned(Self.OnChange)) then Self.OnChange(Self);
  end;
  
  
negative.code:         if (not Self.IsVyznam(str)) then
            Self.vyznamy.Add(TFuncVyznam.Create(str))
          else begin
            Self.vyznamy.Delete(Self.GetVyznamIndex(str));
            Self.vyznamy.Add(TFuncVyznam.Create(str));
          end;
        end;
      end;
  