Pascal/Turbo Pascal - Ya está

Lo he probado con otras funciones y procedures que he hecho y funciona, así que era así jejeje

Ya solo me queda una última duda. Una de las funciones que quiero hacer es una que destruya el arbol entero, pero no tengo claro como hacerla. Si hacer q todo apunte a nil y luego hacer un dispose... no lo tengo claro. Si alguien pudiera ayudarme...