[MiXaeL]

У меня почему-то не всегла работает delete each..., поэтому можно использовать

for myVar.MyType=each MyType
...;удаление нечисловой информаций в типе
...;например, FreeEntity myVar.model и т.д.
delete MyVar
Next

для большей надежности.