anchor.diff:  
    Flags:=AFlags;
   
  - if length(RegularExpression)=0 then begin
  -  raise EFLRE.Create('Invalid regular expression');
  - end;
  -
    if rfDELIMITERS in Flags then begin
  +
  +  if length(RegularExpression)=0 then begin
  +   raise EFLRE.Create('Invalid regular expression');
  +  end;
   
     StartDelimiter:=RegularExpression[1];
   
  
positive.code:          CurrentPosition:=Next;
          end;
         end else begin
          if Count>=length(SplittedStrings) then begin
           SetLength(SplittedStrings,(Count+1)*2);
          end;
          if LastPosition<Captures[0].Start then begin
           SplittedStrings[Count]:=FLREPtrCopy(PFLRERawByteChar(Input),LastPosition,Captures[0].Start-LastPosition);
          end else begin
           SplittedStrings[Count]:='';
          end;
          inc(Count);
          for Index:=1 to CountCaptures-1 do begin
           if Limit<>0 then begin
            if Limit>0 then begin
             dec(Limit);
            end;
            if Count>=length(SplittedStrings) then begin
             SetLength(SplittedStrings,(Count+1)*2);
            end;
            if Captures[Index].Length>0 then begin
             SplittedStrings[Count]:=FLREPtrCopy(PFLRERawByteChar(Input),Captures[Index].Start,Captures[Index].Length);
            end else begin
             SplittedStrings[Count]:='';
            end;
            inc(Count);
           end else begin
            break;
           end;
  
negative.code:        function UTF8ExtractAll(const Input:TFLREUTF8String;var MultiExtractions:TFLREMultiStrings;const StartPosition:longint=1;Limit:longint=-1):boolean;
         function UTF8Replace(const Input,Replacement:TFLREUTF8String;const StartPosition:longint=1;Limit:longint=-1):TFLREUTF8String;
         function UTF8ReplaceCallback(const Input:TFLREUTF8String;const ReplacementCallback:TFLREReplacementCallback;const StartPosition:longint=1;Limit:longint=-1):TFLRERawByteString;
         function UTF8Split(const Input:TFLREUTF8String;var SplittedStrings:TFLREStrings;const StartPosition:longint=1;Limit:longint=-1;const WithEmpty:boolean=true):boolean;
         function UTF8Test(const Input:TFLREUTF8String;const StartPosition:longint=1):boolean;
         function UTF8Find(const Input:TFLREUTF8String;const StartPosition:longint=1):longint;
  
  