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