anchor.diff:  
        TPFLRECharClasses=array of PFLRECharClass;
   
  -     TFLREReplacementCallback=function(const Input:PAnsiChar;const Captures:TFLRECaptures;const CapturedStrings:TFLREStrings):TFLRERawByteString of object;
  +     TFLREReplacementCallback=function(const Input:PAnsiChar;const Captures:TFLRECaptures):TFLRERawByteString of object;
   
        PPFLRENode=^PFLRENode;
        PFLRENode=^TFLRENode;
  
positive.code:    Include(RealFlags,rfDELIMITERS);
    end;
    try
     TFLRE(result):=TFLRE.Create(TFLRERawByteString(PtrCopy(RegularExpression,0,RegularExpressionLength)),RealFlags);
    except
     FreeAndNil(TFLRE(result));
     raise;
  
negative.code:  result:=-1;
  end;
  
  function FLREPtrCopy(const Src:PAnsiChar;const From,Len:longint):TFLRERawByteString;
  begin
   SetLength(result,Len);
   if Len>0 then begin
  