问题如下：

在窗体类中定义：
   MyStack: TStack;
    ppStr: string;


procedure TForm1.FormShow(Sender: TObject);
begin
  MyStack := TStack.Create;

  ppStr := 'jarry';
  MyStack.Push(@ppStr);

  ppStr := 'li';
  MyStack.Push(@ppStr);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str: ^string;
begin
  str := MyStack.Pop();
  ShowMessage(str^);
  str := MyStack.Pop();              //为什么第二次弹出不变！？
  ShowMessage(str^);
end;