Передача Unicode через Socket

Question

Подскажите, пожалуйста, как правильно передать Unicode в Delphi 10.1 Berlin с помощью Socket. Я пытаюсь передать 日本語

Передача. Точка останова говорит, что в s находится 日本語

var
  s: String;
begin
  s := '日本語';
  ClientSocket1.Socket.SendText(AnsiString(s));

Приём

var
  s: String;
begin
  s := String(Socket.ReceiveText);

В итоге получаю ???