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