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