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

[Shouldercannon]

Доброго времени суток!
Подскажите, пожалуйста, как правильно передать Unicode в Delphi 10.1 Berlin с помощью Socket.
Я пытаюсь передать 日本語
Передача. Точка останова говорит, что в s находится 日本語

Код: (Delphi)

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

Приём

Код: (Delphi)

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

Соответственно получаю знаки вопросов

[RXL]

Посмотри коды символов AnsiString, когда делаешь преобразование. Стоит заглянуть в и конвертор String->AnsiString (это либо приведение типа в String, либо конструктор в AnsiString), может он что-то больше делает, чем передачу буфера из типа в тип.

[Shouldercannon]

Только через SendBuf