Use symbolic const E_NOINTERFACE instead of raw value $80004002

git-svn-id: trunk@4934 -

rtl/inc/objpas.inc

@@ -679,7 +679,7 @@
          if getinterface(iid,obj) then
            result:=0
          else
-           result:=longint($80004002);
+           result:=longint(E_NOINTERFACE);
       end;
 
     function TInterfacedObject._AddRef : longint;stdcall;