anchor.diff:     Value:=CountInternalCaptures;
      inc(CountInternalCaptures);
      if rfIGNORECASE in Flags then begin
  -    result:=NewNode(ntBACKREFERENCEIGNORECASE,nil,nil,nil,Value);
  +    result:=NewNode(ntBACKREFERENCEIGNORECASE,nil,nil,Value);
      end else begin
  -    result:=NewNode(ntBACKREFERENCE,nil,nil,nil,Value);
  +    result:=NewNode(ntBACKREFERENCE,nil,nil,Value);
      end;
      result^.Group:=Group;
     end;
  
positive.code:  end;
  end;
  
  function TFLRE.NewNode(const NodeType:longint;const Left,Right,Extra:PFLRENode;const Value:longint):PFLRENode;
  begin
   GetMem(result,SizeOf(TFLRENode));
   FillChar(result^,SizeOf(TFLRENode),#0);
  
negative.code:              LookAssertionStrings[Value]:=TemporaryString;
              end;
              if Negate then begin
               result:=NewNode(ntLOOKBEHINDNEGATIVE,nil,nil,Value);
              end else begin
               result:=NewNode(ntLOOKBEHINDPOSITIVE,nil,nil,Value);
              end;
             end else begin
              Name:='';
  