diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc
index 502c318dc3..070e7dee53 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -580,4 +580,8 @@ begin
   result:=-1;
 end;
 
+function TComponent.iicrGetComponent: TComponent;
 
+begin
+  result:=self;
+end;