procedure SetAsCurrency(Value: Currency); override;
virtual __fastcall SetAsCurrency(Currency Value);
This is SetAsCurrency, a member of class TBCDField.