anchor.diff:      Self.AsDateTime:= aValue.Value;
   end;
   
  -procedure TmQueryParameter.Assign(aValue: TNullableTime);
  +procedure TmQueryParameter.Assign(const aValue: TNullableTime);
   begin
     if aValue.IsNull then
       Self.SetNull
  
positive.code:     Self.AsString:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableInteger);
  begin
    if aValue.IsNull then
      Self.SetNull
  
negative.code:     procedure SetNull;
      function IsNull : boolean;
  
      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);
  