anchor.diff:      procedure Assign(aValue : TNullableDateTime); overload;
       procedure Assign(aValue : TNullableTime); overload;
       procedure Assign(aValue : TNullableDouble); overload;
  -    procedure Assign(aValue : TNullableBoolean; const aConvention: TmBooleanParameterConvention); overload;
  +    procedure Assign(aValue : TNullableBoolean; const aConvention: TmBooleanParameterConvention; const aValueForTrue : integer = 1; const aValueForFalse : integer = 0); overload;
       procedure Assign(const aFilter : TmFilter); overload;
   
       procedure AsStringList (aList : TStringList);
  
positive.code:     Self.AsFloat:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableBoolean; const aConvention: TmBooleanParameterConvention);
  begin
    if (aValue.IsNull) and (aConvention <> bpcUseIntegersAvoidNull) and (aConvention <> bpcUseIntegersButStringsAvoidNull) then
      Self.SetNull
  
negative.code:     if (aConvention = bpcUseIntegers) or (aConvention = bpcUseIntegersAvoidNull) then
      begin
        if aValue.AsBoolean then
          Self.AsInteger:= aValueForTrue
        else
          Self.AsInteger:= aValueForFalse;
      end
      else if (aConvention = bpcUseIntegersButStrings) or (aConvention = bpcUseIntegersButStringsAvoidNull) then
      begin
        if aValue.AsBoolean then
          Self.AsString:= IntToStr(aValueForTrue)
        else
          Self.AsString:= IntToStr(aValueForFalse);
      end;
    end;
  end;
  