Skip to main content
3 de 3
Completar ala respuesta con más datos

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 nil).

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.