anchor.diff:    Node:=NodeEx^;
     if assigned(Node) then begin
      case Node^.NodeType of
  -    ntCHAR,ntANY,ntZEROWIDTH,ntLOOKBEHINDNEGATIVE,ntLOOKBEHINDPOSITIVE,ntLOOKAHEADNEGATIVE,ntLOOKAHEADPOSITIVE,ntBACKREFERENCE,ntBACKREFERENCEIGNORECASE:begin
  +    ntCHAR,ntZEROWIDTH,ntLOOKBEHINDNEGATIVE,ntLOOKBEHINDPOSITIVE,ntLOOKAHEADNEGATIVE,ntLOOKAHEADPOSITIVE,ntBACKREFERENCE,ntBACKREFERENCEIGNORECASE:begin
       end;
       ntPAREN:begin
        NodeEx:=@Node^.Left;
  
positive.code:         BeginningWildCard:=true;
         end;
         if CurrentPosition<MaxPrefixCharClasses then begin
          PrefixCharClasses[CurrentPosition]:=PrefixCharClasses[CurrentPosition]+[#0..#255];
         end;
         AddThread(NewThreadList,Instruction^.Next);
        end;
  
negative.code:       result:=result+']';
       end;
      end;
      ntPAREN,ntMULTIMATCH:begin
       result:='('+ProcessNode(Node^.Left)+')';
      end;
  