记录型指针怪现象

Question

var myrecordpointer:Pmycord;//Pmycord是一个自定义的记录型指针//处理的代码
new(myrecordpointer);
myrecordpointer.parentnoteid:=Pmyrecord(treeview1.selected.data)^.parentnoteid;
这是一个例程中的一个片段。为什么在myrecordpointer.parentnoteid不需要加^号，而在
Pmyrecord(treeview1.selected.data)^.parentnoteid中要加^号.
为了解此疑问，我又写了如下语句：
type pname=^Tmyrecord;
     Tmyrecord=record
     parentnoteid:string;
     haha:string;
     end;
procedure TForm1.Button1Click(Sender: TObject);
var p,p2:pname;
begin
new(p);
new(p2);
p.parentnoteid:='111';
p2.parentnoteid:=p^.parentnoteid;
p2.haha:=p.parentnoteid;
edit1.Text:=p2.parentnoteid;
edit2.Text:=p2.haha;
end;
发觉执行后没有任何差别，请问这是为什么呢？

Answer 1

应该是编译器能够自动把变量myrecordpointer.识别为myrecordpointer^.吧，但是对于定义的类型
Pmyrecord就不能识别了

Answer 2

Delphi能自动识别记录类型的指针，不需要加^。