anchor.diff:  var Index:TFLREInt32;
       CurrentChar:TFLRERawByteChar;
   begin
  - result:=PtrPosCharSetOf2Of2Search(@Text[Offset],
  -                                   (TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar1))) shl 8) or
  -                                   TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar0))),
  -                                   @Text[TextLength]);
  - if result=0 then begin
  + if Offset<TextLength then begin
  +  result:=PtrPosCharSetOf2Of2Search(@Text[Offset],
  +                                    (TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar1))) shl 8) or
  +                                    TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar0))),
  +                                    @Text[TextLength]);
  +  if result=0 then begin
  +   result:=-1;
  +  end else begin
  +   dec(result,TFLREPtrInt(pointer(@Text[Offset])));
  +  end;
  + end else begin
     result:=-1;
  - end else begin
  -  dec(result,TFLREPtrInt(pointer(@Text[Offset])));
    end;
   end;
   
  
positive.code: 
  function PtrPosCharSetOf3(const SearchChar0,SearchChar1,SearchChar2:TFLRERawByteChar;const Text:PFLRERawByteChar;TextLength:TFLREInt32;Offset:TFLREInt32=0):TFLREPtrInt;
  begin
   result:=PtrPosCharSetOf3Search(@Text[Offset],
                                 (TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar2))) shl 16) or
                                 (TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar1))) shl 8) or
                                 TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar0))),
                                 @Text[TextLength]);
   if result=0 then begin
    result:=-1;
   end else begin
    dec(result,TFLREPtrInt(pointer(@Text[Offset])));
   end;
  end;
  
  
negative.code: var Index:TFLREInt32;
      CurrentChar:TFLRERawByteChar;
  begin
   if Offset<TextLength then begin
    result:=PtrPosCharSetOf2Of4Search(@Text[Offset],
                                      (TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar1))) shl 8) or
                                      TFLREQWord(TFLREUInt8(TFLRERawByteChar(SearchChar0))),
                                      @Text[TextLength]);
    if result=0 then begin
     result:=-1;
    end else begin
     dec(result,TFLREPtrInt(pointer(@Text[Offset])));
    end;
   end else begin
    result:=-1;
   end;
  end;
  
  