Sendmessage - Text von App1 an App2

[Gargamel]

Hi

Ich möchte Text von einer Anwendung an eine andere senden. Leider kommt bei der Zielanwendung nur leerer Text an. Das Fensterhandle wird erkannt und die Zielanwendung reagiert auch.
Hier der bisherige Code:

Der Sender

Delphi-Quellcode:

const
   MY_MESSAGE = WM_USER + 4242;

var 
   txt_p:PChar;

...
...
...

Begin
   hReceiveWindow := FindWindow (nil,'Receiver');

   txt:='Gargamel';
   txt_p:=PChar(txt);
   SendMessage(hReceiveWindow, MY_MESSAGE, 0, DWORD(txt_p));
end;

Der Receiver:

Delphi-Quellcode:

const
  MY_MESSAGE = WM_USER + 4242;

 TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;
  end;

procedure TForm1.MessageReceiver(var msg: TMessage);
var txt: PChar;
    txtstr:string;
begin
  txt := PChar(msg.lParam);
  txtstr:=StrPas(txt);
  msg.Result := 1;
  Memo1.Lines.Add(txtstr);
end;

Vielen Dank.