Source position: fmtbcd.pp line 343
function DoubleToBCD(
const aValue: extended
):tBCD;procedure DoubleToBCD(
const aValue: extended;
var BCD: tBCD
);