SendMessage로 다른 프로그램에 문자열을 보내기 위해
지금까지  WMCopyData메세지를 가지고 잘 써왓습니다
그런데 어떤 필요에 의해 WM_USER을 써서 문자열을 보내려고 합니다
Wparam과 lparam에 어떠한 형변환을 해서 보내고
받는 쪽에서도 어떻게 CopyMemory를 해야하는지 잘 모르겟습니다
고수님의 도움 부탁드립니다
<!--CodeS-->
****보내는 쪽

pData:string;

        PData:='Now SendString';
        wnn:=FindWindow(nil,'TESTFORM');
        SendMessage(wnn, WM_USER+20, Longint(PChar(pData)),0);

****받는쪽
    procedure WMUserString(var Message: TMessage); message WM_USER_+20;


procedure TForm1.WMUserString(var Message: TMessage);
var
    DataStr:string;
    MyData:Pointer;
begin
   MyData := @Message.WParam;
   DataStr:= string(MyData);
   Memo1.Lines.Add('1->'+PChar(MyData));
   Memo1.Lines.Add('2->'+DataStr);
end;
<!--CodeE-->
받는쪽에서는 이상한 깨진 문자가 나오는데요
어디가 잘못되었슨지요