anchor.diff:      function Tail: PPropInfoExt; inline;
     end;
     {$ENDIF}
  - 
  +
     TRttiPropertyExtension = class(TRttiInstanceProperty)
     private
       {$IFDEF DELPHI_XE3_UP}
  
positive.code:       Result := LProp;
        Break;
      end;
    end;  
    {$ENDIF}
  end;
  
  
negative.code: var
    s: string;
    values: TStringDynArray;
    i: NativeInt;
    p: Pointer;
    v1, v2: TValue;
    elType: PTypeInfo;
  