From 2abc422035a2d854a09b51eb7552b63f5f22e1fc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 21 Mar 2009 09:26:48 +0000
Subject: [PATCH] * ValidateContainer should call ValidateInsert

git-svn-id: trunk@12935 -
---
 rtl/objpas/classes/compon.inc | 1 +
 1 file changed, 1 insertion(+)

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;