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