急救：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);
结果显示接收的字符串变为空了。
请老大指点啊！