Source position: fmtbcd.pp line 378
function BCDCompare(
const BCD1: tBCD;
const BCD2: tBCD
):Integer;