在Delphi2009及以后版本中，PChar是PWideChar（16位UTF-16）的别名，但VB.NET代码发送的是8位ANSI编码字节，因此，在Delphi端需要使用PAnsiChar而不是PChar（除非您更改VB.NET代码，使用Encoding.Unicode而不是Encoding.Default）。
顺便说一句，有一个VB.NET代码中的（潜在）错误。DotNet字符串不是以空结尾的，因此如果msg是String，则Encoding.GetBytes(msg)将不输出空终止符字节（如果msg是存在空终止符的Char[]数组，则会出现这种情况）。代码将cds.cbData = len + 1设置为存在空终止符。它应该设置cds.cbData = len，然后，在Delphi端，您可以使用SetString()而不是StrPas()将PAnsiChar数据放入一个AnsiString，然后您可以将其分配给一个原生string。
试试这个：

Dim sarr As Byte() = System.Text.Encoding.[Default].GetBytes(msg)
Dim len As Integer = sarr.Length
Dim cds As COPYDATASTRUCT
cds.dwData = CType(wParam, IntPtr)
cds.lpData = msg
cds.cbData = len
SendMessage(CInt(hWnd), WM_COPYDATA, 0, cds)

var
  ...
  astr: AnsiString;
  str: String;
...
  WM_COPYDATA :
  begin
    recvdata := PCopyDataStruct(Message.LParam);
    msgtype := recvdata^.dwData;
    msglen := recvdata^.cbData;
    SetString(astr, PAnsiChar(Recvdata^.lpData), msglen);
    str := string(astr);
    ...
  end;

一旦这样做了，考虑使用Encoding.UTF8而不是Encoding.Default来避免任何非ASCII字符的潜在数据丢失，因为Encoding.Default是一个特定于语言环境的转换，可能会有丢失，而UTF-8是一个无损转换：
一个二个一个一个