[Northern]

Todos los TObject antes de inicializarlos hay que crearlos:

P := TPila.Create;

...después les asignas valores, por ejemplo P.Tope := 0;

y al finalizar los liberas

P.Free;


pero si no les asignas memoria -> crash!!!!


Saludos