Delphi - How send a structure to an other probramm by using SendMessage function

HI everybody,

I'm tryind to send a structure from Program "A" to program "B" by using sendmessage function.

My structure is defined into a (Program "A" and Program "B") common library like this
==>

TIdentifier record of
  ID  : String;
  SID : String;
end;


Into program "A" I'm  fulling my structure as below
==>

Program "A"
var
   Identifier: TIdentifier;
begin
  Identifier.PID := 'PID';
  Identifier.SID := 'SID';
  sendmessage(ProgramBHandle,1101,0,integer(@Identifier));
end;


I'm receiving the message into program "A" like below
==>
procedure Tform1.WndProc(var Msg : TMessage);
var
  PID:string;
  MsgParm: integer;
  Identifier: TIdentifier;
begin
  if msg.Msg = 1101 then begin
    messagebeep(0);
    id := Pointer(msg.lParam);
    Identifier(id).
    PID:=id^.PID;
    showmessage(PID);
    PID:=id.PID;
    showmessage(PID);
  end;
  inherited;
end;

But my problem is... can't read my structure. I'm receiving the structure address but I can't
do anything.