请教一个指针强制类型转换问题！

[maojianhuan]

type
TTest1Record = record
mystr: String;
pp: PCHAR;
test: String;
end;
PTestRecord = ^TTest1Record;

type
TTest2Record = record
mystr: String;
p: PCHAR;
mm: String;
end;
PTest2Record = ^TTest2Record;

var
p1: PTest1Record;
p2: PTest2Record;
begin
System.New(p1);
System.new(p2);
p1.mystr := '1';
p1.pp := PCHAR(p2);
p1.test := '2';

p2.p := PCHAR(p1);
p2.mm := '4';
p2.mystr := '3';
showmessage(PTest2Record(p1.pp).mystr);
dispose(p2);
dispose(p1);
end;

程序目的是让两个类或结构体能够互指，这种强制类型倒是能实现，也能成功执行，就是不知道以后会不会引起问题，比如编译出来的应用放到其他机子运行时等。。。请各位高手指点一下，谢谢！

[maojianhuan]

没人解疑吗？

[hongqi162]

不会有问题