anchor.diff:        class function CreateNew(aValue : TDateTime) : TNullableDateTime; overload;
         class function CreateNew() : TNullableDateTime; overload;
   
  +      procedure Assign(aSource : TNullableDateTime);
  +
         property Value : TDateTime read GetValue write SetValue;
     end;
   
  
positive.code:     class function CreateNew(aValue : Boolean): TNullableBoolean; overload;
      class function CreateNew(): TNullableBoolean; overload;
  
      property Value : Boolean read GetValue write SetValue;
    end;
  
  
negative.code:   Result := TNullableUnicodeString.Create();
  end;
  
  procedure TNullableUnicodeString.Assign(aSource: TNullableUnicodeString);
  begin
    if not aSource.IsNull then
      Self.Value := aSource.Value
    else
      Self.IsNull := true;
  end;
  
  end.
  