anchor.diff:  interface
   
   uses
  -  DB, Contnrs, SysUtils,
  +  DB, Contnrs, SysUtils, Variants,
     mNullables;
   
   type
  
positive.code:     procedure Assign(aValue : TNullableInteger); overload;
      procedure Assign(aValue : TNullableDateTime); overload;
      procedure Assign(aValue : TNullableDouble); overload;
  
      property Name : String read FName write FName;
      property DataType : TmParameterDataType read GetParameterDataType write SetParameterDataType;
  
negative.code:     Self.AsFloat:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: Variant; const aDataType: TmParameterDataType);
  begin
    FDataType:= aDataType;
    if VarIsNull(aValue) then
      Self.SetNull
    else
      FValue := aValue;
  end;
  
  
  function TmDatabaseConnectionInfo.GetDatabaseName: String;
  begin
  