Подскажите функцию в Delphi округления числа до десятичного.

Точной комманды не подскажу, с дельфи не дружу, но должно быть все очень просто. Непонятно правда, что имеешь ввиду, округление до десятых? Тогда надо умножить число на 10, округлить до целого и разделить на 10. (в том случае если нет прямой комманды округления), так же при округлении до произвольного количества знаков.

function Trunc(X: Extended): Int64;

Description

In Delphi code, the Trunc function truncates a real-type value to an integer-type value. X is a real-type expression. Trunc returns an Int64 value that is the value of X rounded toward zero.

If the truncated value of X is not within the Int64 range, an EInvalidOp exception is raised.

Если до десятков - то round(x/10)*10, где x-переменная.
тобиш 53 -> 50,  46 -> 50, 2 -> 0, 12 -> 10, .......