anchor.diff:  
       I := 0;
       Len := System.length(Delimiter);
  +{$IFDEF DELPHIXE3_UP}
  +    PosStart := System.Low(S);
  +    HighPoint := System.High(S);
  +{$ELSE}
       PosStart := 1;
  +    HighPoint := System.length(S);
  +{$ENDIF DELPHIXE3_UP}
       PosDel := System.Pos(Delimiter, S);
       while PosDel > 0 do
       begin
  
positive.code:       PosDel := PosEx(Delimiter, S, PosStart);
        System.Inc(I);
      end;
      result[I] := System.Copy(S, PosStart, System.length(S));
    end;
  end;
  
  
negative.code:   HlpBits,
    HlpBitConverter;
  
  resourcestring
    SEncodingInstanceNil = 'Encoding Instance Cannot Be Nil';
  
  type
    TConverters = class sealed(TObject)
  
  