anchor.diff:      end else begin
        break;
       end;
  -   end;
  +   until false;
     except
      raise;
     end;
  
positive.code:   result:=nil;
    try
     SkipFreeSpacingWhiteSpace;
     while (SourcePosition<=SourceLength) and not (Source[SourcePosition] in [')',#0]) do begin
      Node:=ParseAlternative;
      SkipFreeSpacingWhiteSpace;
      if assigned(result) then begin
       result:=NewAlt(result,Node);
  
negative.code: end;
  
  constructor TFLRE.Create(const ARegularExpression:TFLRERawByteString;const AFlags:TFLREFlags=[rfDELIMITERS]);
  const EmptyString:pansichar='';
  var StartDelimiter,EndDelimiter:ansichar;
      Index,SubIndex:longint;
      FlagsStr:TFLRERawByteString;
      ThreadLocalStorageInstance:TFLREThreadLocalStorageInstance;
      Captures:TFLRECaptures;
  begin
   inherited Create;
  
  