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