Передать текст из 1-го приложения во 2-е через PostMessage

//Вот что отправляю...
//Процедура в первой программе
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CopyData: TCopyDataStruct;
  FormHandle: HWND;
  MemoText: string;
begin
  MemoText := Memo1.Text;
  with CopyData do
  begin
    DWData := 0;
    CBDATA := Length(MemoText) * sizeof(Char);
    LPData := PChar(MemoText);
  end;
  FormHandle := FindWindow(PChar('TSpecialClass'), nil);
  if (Handle <> 0) then
    begin
      SendMessage(FormHandle, WM_COPYDATA, Longint(Handle), Longint(@CopyData));
    end
  else
    ShowMessage('Окно не найдено!');
end;
 
 
//Вот что принимаю...
//Процедура во второй программе
 
procedure TSpecialClass.WMCopyData(var Msg: TWMCopyData);
var
  ReceivedText: string;
begin
  SetLength(ReceivedText, Msg.CopyDataStruct.cbData div 2);
  Move(Msg.CopyDataStruct.lpData^, PChar(ReceivedText)^, Msg.CopyDataStruct.cbData and (not 1));
  Memo1.Text := ReceivedText;
end;