procedure SetValueAsBool(const AValue: boolean); virtual;