procedure SetValueAsInteger(const AValue: integer); virtual;