How to refactor here? test fails about tregexpr HOT 4 CLOSED

              case regparse^ of // r.e.extensions
                'd':
                  begin
                    //EmitRangeStr('0123456789');
                    if bInverse then
                      EmitNode(OP_NOTDIGIT)
                    else
                      EmitNode(OP_ANYDIGIT);
                  end;

        bInverse := regparse^ = '^';
        if bInverse then
        begin // Complement of range.
          if (fCompModifiers and MaskModI) <> 0 then
            ret := EmitRange(OP_ANYBUTCI)
          else
            ret := EmitRange(OP_ANYBUT);
          Inc(regparse);
        end
        else if (fCompModifiers and MaskModI) <> 0 then
          ret := EmitRange(OP_ANYOFCI)
        else
          ret := EmitRange(OP_ANYOF);

    OP_ANYOF:
      while (Result < TheMax) and (StrScan(opnd, scan^) <> nil) do
      begin
        Inc(Result);
        Inc(scan);
      end;
    OP_ANYBUT:
      while (Result < TheMax) and (StrScan(opnd, scan^) = nil) do
      begin
        Inc(Result);
        Inc(scan);
      end;
    OP_ANYOFCI:
      while (Result < TheMax) and (StrScanCI(opnd, scan^) <> nil) do
      begin
        Inc(Result);
        Inc(scan);
      end;
    OP_ANYBUTCI:
      while (Result < TheMax) and (StrScanCI(opnd, scan^) = nil) do
      begin
        Inc(Result);
        Inc(scan);
      end;