[s0Creator]

если SuprD : array of real;
то возможна ошибка округления при переводе из
function RoundTo(...): Double;