var X: Double; begin X := 21.465; SetRoundMode(rmDown); Caption := FloatToStr(SimpleRoundTo(X, -2)); // Imprime 21.47