急救：delphi 用PostMessage 跨进程发送packed record数据时，收到显示为空

TCusData = packed record
  id:Integer;
  grps: array [0..100] of char;
  end;
  PMyData= ^TCusData ;

发送代码：
myData.id:=333;
strCopy(myData.grps,PChar('字符串数据'));
PostMessage(myHandle,MY_Msg,Integer(PMyData(@myData)),0);

接收代码：
myDataPointer:= PMyData(Msg.WParam);
showMessage(myDataPointer.grps);
结果显示接收的字符串变为空了。
请老大指点啊！

好奇怪，用postMessage收到数据为空，而用sendMessage就可以正常接收。
发送的时候，我的数据myData是局部变量，难道跟这有关系吗

可以参考下：
http://lijinshui.bokee.com/1768747.html