diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc
index e5631743c4..03fad6d473 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -388,6 +388,7 @@ end;
 Procedure TComponent.ValidateContainer(AComponent: TComponent);
 
 begin
+  AComponent.ValidateInsert(Self);
 end;