procedure SetValueAsFloat(const AValue: double); virtual;