procedure SetAsBCD(const Value: TBcd); override;
virtual __fastcall SetAsBCD(const TBcd Value);
This is SetAsBCD, a member of class TVariantField.