en realidad el problema esta cuando intento llamar a la funcion con el ebutton
en los siguientes codigos
Código Delphi
[-]procedure TForm1.bInsertarClick(Sender: TObject);
var p: TPila;
begin
if length(eInsertar.Text)=0 then
showmessage('texto en blanco')
else
begin
lbmostrar.items.Append(eInsertar.Text);
p.insertar(eInsertar.Text);
eInsertar.setfocus;
eInsertar.SelectAll;
end;
end;
procedure TForm1.bEliminarClick(Sender: TObject);
var p: TPila; x: Tpila;
begin
p.eliminar();
lbmostrar.Items.delete(lbmostrar.Items.InstanceSize);
end;
este es el error que me sale cuando lo ejecuto:
http://www.sucrevip.net/img/error.JPG