Estoy con Delphius, el modo propuesto por el amigo rrf está bien como ejercicio, pero no es práctico ni vale para el "mundo real", ya me imagino las caras de los clientes protestando por esos "redondeos" tan "cuadrados"
Creo que la función que he propuesto sí es válida para "la vida real":
function Redondeo (valor: Double; decimales: integer = 0): Double;
Indicas el valor a "redondear" y el número de decimales al que quieres el redondeo.