delphi在两个窗口间用消息通讯

用SendMessage在窗口间通讯：
发送方
var HWD: THandle;
    str1,str2:string;
   sData: TCopyDataStruct;
begin
    HWD:=FindWindow(nil,pchar('aaaaaa'));    //  Integer(pchar(self.Edit2.Text))
    str2:='我来了中玉人';
    str1:='我来了中玉人';
    sData.cbData := Length(str2) + 1;
   GetMem(sData.lpData,sData.cbData );
   StrCopy(sData.lpData,PChar(str2));
   SendMessage(HWD,WM_COPYDATA,0,Cardinal(@sData));
end;
接收方：
procedure WMCOPYDATA(var AMsg: TWmCopyData); message WM_COPYDATA;
procedure TForm1.WMCOPYDATA(var AMsg: TWmCopyData);
var s : string;
begin
 s := StrPas(AMsg.CopyDataStruct^.lpData);
  self.Memo1.Lines.Add(s);
end;