[Axmed0207]

Пожалуйста, помогите разобратся в следующей проблеме:

В библиотеке имеется функция, которая при вызове должна возвращать число типа Single вида 1,2345 (с четыремя разрядами после запятой).
Это число генерируется внутри функции рандомизатором, затем преобразуется по определенному алгоритму, в результате получается, например, такое число:
0,381500005722046
далее, оно должно округлятся до 4-ёх разрядов после запятой с помощью соотвтетствующей функции, и возвращаться в кач-ве результата:

Код:

n:=RoundTo(n,-4);
Result:=n;

Проблема в том, что на выходе получается неокругленное число с кучей разрядов.
Пробывал использовать вместо RoundTo функцию FormatFloat - результат одинаковый