Tambien debo decir que a mi me sucedio el caso que expone Federico Firenze y fue que yo usaba Delphi5 y fue precisamente a él quien le pedi el favor de que me diera "Copia" de dicha función desde Delphi7 (Muy amablemente como siempre me colaboro con el asunto, Gracias Federico) asi pues que solo la puse en una unidad global del proyecto y la verdad funciono muy bien...
Nota: Para agregar algo al mensaje de Federico Firenze...
El tipo TRoundToRange es el siguiente:
Código Delphi
[-]
type
TRoundToRange = -37..37;