Deberías ejecutar paso a paso tu aplicación, utilizar puntos de ruptura (breakpoints) y detectar la línea donde se produce el error.
Una vez detectado la línea exacta revisa las variables y objetos que estás utilizando en esa línea para ver si alguno llega sin inicializar (si llega a nilnil).
Algunas cosas más acerca del tu código;
Este Create
es innecesario:
constructor TEscuelaProcedencia.Create;
begin
inherited Create;
sp:=sp;
end;
Si llamas al inherited
con los mismos parámetros no hace falta llamarlo como:
inherited Create;
sólo como:
inherited;
Por otro lado estás utilizando variables sp
, tanto en la clase TEscuela
como en TEscuelaProcedencia
. Eso te va a dar problemas y es inneccesario. Define la variable en la clase base como protected
y la tendrás disponible en ambas.
Al realizar esta asignación en el Create
va a provocar que la segunda variable pierda su apuntador, puesto que lo estás sustituyendo por el apuntador de la primera variable sp
:
sp := sp;
Eso es lo que te está provocando el Access Violation
.