anchor.diff:      else
         Result := aValue <> Value;
       if Result then
  -      Self.Value:= aValue;
  +      CreateWithValue(aValue);
     end;
   end;
   
  
positive.code:     function AsString : String;
    end;
  
  
  implementation
  
  uses
    SysUtils {$IFDEF FPC}, LazUtf8{$ENDIF};
  
  { TNullableStringRecord }
  
  procedure TNullableStringRecord.CreateAsNull;
  
negative.code:   if VarIsNull(aValue) then
    begin
      Result := not IsNull;
      CreateAsNull;
    end
    else
    begin
  