anchor.diff:        Instruction:=Instruction^.Next;
         continue;
        end;
  +     opMANY:begin
  +      // TODO
  +      Instruction:=Instruction^.Next;
  +      continue;
  +     end;
        opZEROWIDTH:begin
         if CurrentSatisfyFlags=$ffffffff then begin
          CurrentSatisfyFlags:=ThreadLocalStorageInstance.GetSatisfyFlags(Position);
  
positive.code:       Instruction:=Instruction^.OtherNext;
        continue;
       end;
       opSAVE,opZEROWIDTH,opLOOKBEHINDNEGATIVE,opLOOKBEHINDPOSITIVE,opLOOKAHEADNEGATIVE,opLOOKAHEADPOSITIVE,opBACKREFERENCE,opBACKREFERENCEIGNORECASE:begin
        Instruction:=Instruction^.Next;
        continue;
       end;
  
negative.code:     ntANY:begin
       result:=result+'.';
      end;
      ntPAREN,ntMANY:begin
       result:='('+ProcessNode(Node^.Left)+')';
      end;
      ntQUEST:begin
  