anchor.diff:      procedure SetNull;
       function IsNull : boolean;
   
  -    procedure Assign(aValue : TNullableString); overload;
  -    procedure Assign(aValue : TNullableInteger); overload;
  -    procedure Assign(aValue : TNullableDateTime); overload;
  -    procedure Assign(aValue : TNullableTime); overload;
  -    procedure Assign(aValue : TNullableDouble); overload;
  -    procedure Assign(aValue : TNullableBoolean; const aConvention: TmBooleanParameterConvention; const aValueForTrue : integer = 1; const aValueForFalse : integer = 0); overload;
  +    procedure Assign(const aValue : TNullableString); overload;
  +    procedure Assign(const aValue : TNullableInteger); overload;
  +    procedure Assign(const aValue : TNullableDateTime); overload;
  +    procedure Assign(const aValue : TNullableTime); overload;
  +    procedure Assign(const aValue : TNullableDouble); overload;
  +    procedure Assign(const aValue : TNullableBoolean; const aConvention: TmBooleanParameterConvention; const aValueForTrue : integer = 1; const aValueForFalse : integer = 0); overload;
       procedure Assign(const aFilter : TmFilter); overload;
  +    procedure AssignStrings(const aList : TStringList);
  +    procedure AssignIntegers(const aList : TIntegerList);
  +    procedure AssignDoubles(const aList: TDoubleList);
  +    procedure AssignDates(const aList : TIntegerList);
  +    procedure AssignDateTimes(const aList: TDoubleList);
   
       procedure AsStringList (aList : TStringList);
       procedure AsIntegerList (aList : TIntegerList);
  
positive.code:     Self.AsTime:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableDouble);
  begin
    if aValue.IsNull then
      Self.SetNull
  
negative.code:     Self.AsInteger:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(const aValue: TNullableDateTime);
  begin
    if aValue.IsNull then
      Self.SetNull
  