HELP:关于程序间消息传递问题（delphi）

程序中的通用数据段
const
     Msg_int=WM_USER +100;
type
   Ttemprecord=record
   var1:integer;
   var2:integer;
   var3:integer;
   var4:integer;
   var5:integer;
    end;
   
var
  temp_record:Ttemprecord;
 

程序1中使用
    PostMessage(程序2_hwnd,Msg_int,w_id,longint(@temp_record));
    将消息发送给程序2

程序2中
procedure rec_msg(var msg:tmessage);message Msg_int;

procedure TForm1.rec_msg(var msg:tmessage);
var
 i:integer;
begin
  i:=msg.WParam；
  {
  如何将程序1中传递的结构体中数据取出
  }
  temp_record:=addr(msg.LParam);
end;