delphi 对象 对象类型 指针 的 纠结关系 理清了。 百度没有答案 。自己纯摸索， 哈哈

var a:tform12;
p:pointer;p2,p3,p4:pointer;
begin

a:=tform12.Create(application);
p:=@a;
pointer(p2):=pointer(p^);

pointer(p3):=pointer(a);
pointer(p4):=ppointer(a)^;

inputbox('','',inttohex(integer(a),8));//运行结果 a 023D46E0 a指针所指的地址 实际上是对象所在位置
inputbox('','',inttohex(integer(p),8));//运行结果 b 0018F544 p指针所指的地址 实际上是变量a所在位置

inputbox('','',inttohex(integer(tform12),8));//运行结果 c 00510548 这个是类型 所在地址。

inputbox('','',inttohex(integer(p^),8)); //运行结果 a 023D46E0
inputbox('','',inttohex(integer(p2^),8)); //运行结果 c 00510548
inputbox('3','3',inttohex(integer(p3^),8)); //运行结果 c 00510548
inputbox('4','4',inttohex(integer(p4^),8)); //运行结果 0048DE18 这个是类的数据。
inputbox('5','5',inttohex(integer(p4),8)); //运行结果 c 00510548
// inputbox('6','6',inttohex(integer(p3),8)); //运行结果 a 00510540

end;