CurrToBCD

function CurrToBCD(

  const Curr: currency;

  var BCD: tBCD;

  Precision: Integer = 32;

  Decimals: Integer = 4

):Boolean;

function CurrToBCD(

  const Curr: currency

):tBCD;