rangedispatch.pas - test of dynamic dispatch on range types.