* fpc_intf_assign_by_iid does not call Addref anymore, the QueryInterface call will increase the refcount

git-svn-id: trunk@4744 -

rtl/inc/objpas.inc

@@ -68,10 +68,8 @@
          if assigned(D) then
            IUnknown(D)._Release;
          if assigned(S) then
-         begin
-           IUnknown(S)._AddRef;
-           IUnknown(S).QueryInterface(iid, D);
-         end else
+           IUnknown(S).QueryInterface(iid, D)
+         else
            D := nil;
       end;