{ 控件动态创建的堆与栈 }

procedure Form1.TestClick(Sender: TObject);
var
  TestBtn1,BtnTemp:TButton;
begin

  {第一步：创建一个Button，令指针TestBtn1指向这个在堆中开辟的内存区。}
  ////////////////////////////////////////////////////////////////////////////

  {NOTE：必须指定name，后面FindComponent就是通过name来找控件的，TestBtn1不是button的name}
  TestBtn1:=TButton.Create(panel);  //让panel做此button的owner
  with TestBtn1 do
  begin
    Caption:='hello';               //设置Button显示文本
    name:= 'Button1_test';
    left:=16;
    top:=16;
    width:=60;
    parent:=panel;                  //让panel1做此Button的parent
  end;


  {第二步：制造内存泄漏，同时保存栈中原指针以作补救}
  ////////////////////////////////////////////////////////////////////////////

  {保存原指针，注意此处控件名区分大小写，请务必和name属性保持完全一致}
  btnTemp:=TButton(panel.FindComponent('Button1_test'));

  TestBtn1:=TButton.Create(panel);
  {TestBtn1指向地址更改，从指向caption为hello的caption转为指向caption为Button2的button，
  第一个button的指针丢失 }
  with TestBtn1 do
  begin
    Caption:='Button2';
    left:=16+70;
    top:=16;
    width:=60;
    parent:=panel;
  end;

  btnTemp.Caption:='world';
  BtnTemp.Hint:='这是提示';
  FreeAndNil(panel);                     //虽然发生内存泄漏，owner还是会负责回收，两个button和一个panel都消失
  ShowMessage('name:'+btnTemp.name);     //name被清空
  ShowMessage(BtnTemp.Hint);
  try
    if  btnTemp.Caption='world' then     //caption 仍为world，很奇怪
    begin
      ShowMessage('OK');
      btntemp.Caption:='hello world';     //这是非法的，button已经回收了，会造成错误
    end
    else
    begin
      ShowMessage('crush');
    end;
  except
    ShowMessage('opps!Invalid pointer.');
  end;
end;