Merged revisions 11732 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r11732 | michael | 2008-09-09 08:41:57 +0200 (Tue, 09 Sep 2008) | 1 line
  
  * Fixed SetItem as per bugreport of Paul Ishenin
........

git-svn-id: branches/fixes_2_2@11733 -

packages/fcl-base/src/contnrs.pp

@@ -714,15 +714,8 @@ end;
 
 Procedure TObjectList.SetItem(Index: Integer; AObject: TObject);
 
-Var
-  O : TObject;
-
 begin
-  if OwnsObjects then
-    begin
-    O:=GetItem(Index);
-    O.Free;
-    end;
+  // Put will take care of deleting old one in Notify.
   Put(Index,Pointer(AObject));
 end;