[syber]

Наконец-то нашёл правильную функцию арифметического округления

Код:

function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended;
var
  LFactor: Extended;
begin
  LFactor := IntPower(10, ADigit);
  if AValue < 0 then
    Result := Trunc((AValue / LFactor) - 0.5) * LFactor
  else
    Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;

Округляет всё правильно. Нужно подключить модуль Math для её работы.
Спасибо всем за помощь.