anchor.diff:  end;
   *)
   
  -procedure TmQueryParameter.Assign(aValue: TNullableString);
  +procedure TmQueryParameter.Assign(const aValue: TNullableString);
   begin
     if aValue.IsNull then
       Self.SetNull
  
positive.code:     Self.AsFloat:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableBoolean; const aConvention: TmBooleanParameterConvention; const aValueForTrue : integer = 1; const aValueForFalse : integer = 0);
  begin
    if (aValue.IsNull) and (aConvention <> bpcUseIntegersAvoidNull) and (aConvention <> bpcUseIntegersButStringsAvoidNull) then
      Self.SetNull
  
negative.code:     Self.AsInteger:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(const aValue: TNullableDateTime);
  begin
    if aValue.IsNull then
      Self.SetNull
  