[HolyDel]

да, исправь

if wt\l<0 then delete wt

на:

if wt\l<0
freeentity wt\ent
delete wt
endif