From 68429834a7383b5c9d1093d466786c1390641dcb Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 8 Feb 2014 11:39:31 +0000
Subject: [PATCH] * Fixed bug #25049

git-svn-id: trunk@26721 -
---
 rtl/objpas/classes/collect.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/collect.inc b/rtl/objpas/classes/collect.inc
index e8d2a1089d..1997f48d55 100644
--- a/rtl/objpas/classes/collect.inc
+++ b/rtl/objpas/classes/collect.inc
@@ -33,7 +33,6 @@ begin
     begin
     If FCollection<>Nil then FCollection.RemoveItem(Self);
     if Value<>Nil then Value.InsertItem(Self);
-    FCollection:=Value;
     end;
 end;
 
@@ -203,6 +202,7 @@ begin
   If Not(Item Is FitemClass) then
     exit;
   FItems.add(Pointer(Item));
+  Item.FCollection:=Self;
   Item.FID:=FNextID;
   inc(FNextID);
   SetItemName(Item);