问一个指针转换的问题，看不懂

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);
var
  a:TStringList ;
  b:Integer ;
begin
  a:=TStringList.Create ;
  b:=Integer (Pointer(a));
  TStringList(Pointer(b)).Add('a2332') ;
  ShowMessage(a[0]);
end;

为什么Pointer(b)转换出来的是a,麻烦，各位帮我分析其中的逻辑，谢谢

a是局部变量，是在栈上分配的，4个字节，超出过程体范围，它就被释放了。

TStringList.Create，在堆中建立了一个TStringList对象，并为其分配空间，超出过程体范围，它还在。

a:=TStringList.Create; a中保存了堆中TStringList对象的地址，所以a变量虽然被叫做引用，但它实际上就是一个指针。

b:=Integer (Pointer(a));保存的是TStringList对象的地址，只不过是数字形式。

TStringList(Pointer(b))，把数字转化为地址，它指向TStringList对象，然后再把该地址“看成”是对StringList对象的引用，所以TStringList(Pointer(b))和a，都是指向的堆中的同一个东西。