Как проверить, удаляется ли из стека элемент или нет?

var
  Form7: TForm7;
  type
  Bu=string; //тип данных, который будет храниться в элементе списка
  ptr=^Node; //тип элемента списка
  Node=record
  bukv:string; //данные хранимые в элементе
  next: ptr; //указатель на следующий элемент списка
  end;
  var
  p,q: ptr;
  n,i:integer;
  c:char;
  g,l:string;
 
 
implementation
 
{$R *.dfm}
procedure vvod(g1:string;var p1: ptr);
var
q1: ptr;
begin
getmem(q1,sizeof(node));   //выделяем память в место для нового элемента
q1^.bukv:=g;               //добавляем к элемету данные
q1^.next:=p;               //указатель на следующий элемент направляем на вершину стека
p1:=q1;                  //вершина стека изменилась, надо перенести и указатели на нее
end;
 
procedure vivod(var p1: ptr);
var
q1: ptr;
begin
q1:=p1; //указатель q1 направим на вершину стека
p1:=p1^.next; //вершину перенесем на следующий за данной вершиной элемент
FreeMem(q1,Sizeof(Node)); //освободим память занятую под старую вершину
end;
 
 
procedure TForm7.Button1Click(Sender: TObject);
begin
n:=memo1.Lines.count;
p:=nil;
for i:=0 to n-1 do begin
g:=(memo1.lines[i]);
vvod(g,p);
end;
while (p<>Nil) do begin  //пока стек не станет указывать в пустоту делать
memo2.lines.add(p^.bukv);   //вывести элемент
vivod(p);         //обратимся к процедуре
end;
end;
end.