Delphi 指针问题
P1:Pointer;
P2:Pointer;
怎么把P1赋值给P2，然后把P1释放掉

[解决办法]
move(p1^,p2^,length);