deleting types

Using Stuart's code, why is the MemAlloced() growing?
I am getting after 1000 iterations:
memory alloced start: 5606
memory alloced end: 45754

I am loading in questions and answers in the app I am working on, and in 100 iterations the MemAlloced() = 128mb :/

Type TSomeType
	Global TypeList:TList
	
	Global Count:Int
	
	Field Param:Int
	
	Method New()
		If TypeList = Null Then TypeList = New TList
		ListAddLast(TypeList,Self)
		Count :+ 1
	End Method
	
	Method Delete()
		Count :- 1
	End Method
	
	Function Create:TSomeType(Param:Int)
		Local tst:TSomeType = New TSomeType
		tst.Param = Param
		Return tst
	End Function
	
	Function Update()
		For Local tst:TSomeType = EachIn TSomeType.TypeList
			TSomeType.TypeList.Remove(tst)
			FlushMem
			Print "Number of objects: "+TSomeType.TypeList.Count()
		Next
	End Function
End Type

Print "memory alloced start: "+MemAlloced() 
For Local i:Int = 0 To 1000
	TSomeType.Create(i)
Next

TSomeType.Update()
Print "memory alloced end: "+MemAlloced()