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