Delphi - punteros

tengo una duda, meti una clase en dos TLIST
cuando borro el primer TLIST libero la memoria de la clase y borro el index del TLIST, el problema viene al borrar la segunda lista, como tienen la misma direccion de memoria me sale error porque esa memoria ya fue borrado en la primera lista.

como puedo hacer para saber si ya fue liberada la memoria?
pus esto pero no me sirve
if Assigned(Lista[1]) then TObjecto(Lista[1]).Free;

pero no me sirve :(

Si ya has liberado la memoria de un objeto, todas las referencias a ese objeto dejan de ser válidas, por lo que por ejemplo deberías poner las variables que lo apuntan en Nil para saber que ya no apuntan a un objeto válido.

En el caso que planteas, al eliminar un objeto referenciado por un elemento de un TList, deberías eliminar el elemento correspondiente (el que referenciaba al mismo objeto) en el otro TList, o bien asignarle Nil a ese elemento.

Ernesto D'Spirito
http://www.latiumsoftware.com/es