* Prevent Move from freeing an associated object if OwnsObjects=True (reported on sourceforge)

git-svn-id: trunk@22992 -

rtl/objpas/classes/stringl.inc

@@ -868,6 +868,7 @@ begin
   BeginUpdate;
   Obj:=Objects[CurIndex];
   Str:=Strings[CurIndex];
+  Objects[CurIndex]:=Nil; // Prevent Delete from freeing.
   Delete(Curindex);
   InsertObject(NewIndex,Str,Obj);
   EndUpdate;