* Fix for 10482, iinterfacecomponentreference

git-svn-id: trunk@9618 -

rtl/objpas/classes/compon.inc

@@ -580,4 +580,8 @@ begin
   result:=-1;
 end;
 
+function TComponent.iicrGetComponent: TComponent;
 
+begin
+  result:=self;
+end;