[richard187]

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