anchor.diff:         for i := pageStart to pageEnd do begin
            ADataTable.Rows[j] := TDataRow.New(FClassID, ADataTable.Columns);
            DehydrateItem( data[i], ADataTable.Rows[j]);
  -         inc(j)
  +         inc(j);
          end;
        end;
     finally
  
positive.code: 
  finalization
    DataRowType.Free;
  end.
  
negative.code:   AExpressionRecord.HasDecimals := LHasDecimals;
  end;
  
  class function TSearchExpressionService.Parse(const AExpression: utf8string): TExpressionRecord;
  begin
    Result.Kind := ekUnknown;
    Parse(AExpression, Result.Kind, Result);
  