function OldBCDToCurr(const BCD: TBcd; var Curr: Currency): Boolean;

Boolean OldBCDToCurr(const TBcd BCD, Currency Curr);