anchor.diff:  procedure TNullableStringRecord.Trim();
   begin
     if not IsNull then
  -    Value:= SysUtils.Trim(Self.Value);
  +    SetValue(SysUtils.Trim(Self.Value));
   end;
   
   function TNullableStringRecord.AsString: String;
  
positive.code:     procedure Add(const aNullableItem: TAbstractNullable);
    end;
  
    { TNullableString }
  
    TNullableString = class(TAbstractNullable)
  
negative.code: 
  end;
  
  procedure TNullableIntegerRecord.Assign(const aSource: TNullableInteger);
  begin
    if aSource.IsNull then
      SetNull
    else
      SetValue(aSource.Value);
  end;
  
  function TNullableIntegerRecord.AsVariant: Variant;
  begin
    if IsNull then
  