Problem beim senden eines Textes an eine andere Anwendung

[hugo1990]

Ich möchte an eine andere von mir programmiete Anwendung einen Text senden. Dazu verwende ich folgenden Code:

Senden:
  PostMessage(h, WM_MultiStarted, 0, Integer(PChar(ParamStr(1)))); Empfangen:

Delphi-Quellcode:

procedure TMainForm.MultiStarted(var Msg: tagMSG; var Handled: Boolean);
var Parameter: String;
begin
  if Msg.message = WM_MultiStarted then
    begin
    Parameter := String(PChar(Msg.lParam));
    showmessage(Parameter);
    end;
end;

Nur leider kommen da nur irgendwelche Hieroglyphen raus. Wenn ich aber einen konstanten String angebe, beispielsweise so:
  PostMessage(h, WM_MultiStarted, 0, Integer(PChar('test'))); dann zeigt er mir auch 'test' an.
Was mache ich falsche? Kann mir da jemand weiter helfen?