Source position: db.pas line 786
protected procedure TBCDField.SetAsCurrency(
AValue: Currency
); override;