delphi获取申明变量的指针地址
比如我声明几个变量
var
a:integer;
b:string;
c:pointer;
begin
end;
我想获取这3个变量的指针地址，不是里面的内容，是他分配的地址。
比如我有一个函数
function aaa(a,b：integer):integer;
begin
result:=a+b;
end;
我想获取这个函数分配的内存地址，如何获取，
只是好奇，不做坏事。谢谢各位姐姐叔叔
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
p:Pinteger;
begin
a := 100;
p := @a;
end;
