tell me why

This should work perfectly

type thing
  field a
end type

; create some
for i=1 to 5
  t.thing=new thing
  t\a=i
next

show()

; delete one
for t.thing=each thing
  if t\a=4 then delete t
next

show()
waitkey
end




function show()
 print "----------"
 for i.thing=each thing
   print j+" - "+i\a
   j=j+1
 next 
end function