В итоге рабочая процедура выглядит так:

function RoundToEx(const AValue: Double; const ADigit: TRoundToRange = -2): double;
var
  LFactor: double;
  i: integer;
  s: string;
begin
  LFactor := IntPower(10, ADigit);
  i := Round(AValue / (LFactor / 10));
  s := IntToStr(i);
  Result := (Trunc(i/10) + ord(StrToInt(s[Length(s)]) >= 5)) * LFactor;
end;

Через одно место, зато работает всегда, без всяких rmDown...