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

[Shouldercannon]

Доброго времени суток!
Подскажите, пожалуйста, как правильно передать 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);

Соответственно получаю ???

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

[BLACK_RAIN]

попробуй

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

[Shouldercannon]

Вот

procedure TFormMain.BSendClick(Sender: TObject);
var
  Arr: TBytes;
begin
  if ClientSocket1.Active then
  begin
    Arr := TEncoding.UTF8.GetBytes(s);
    ClientSocket1.Socket.SendText(AnsiString(Arr));
  end;
end;
 
procedure TFormMain.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s: String;
begin
  s := UTF8ToString(Socket.ReceiveText);
  EReceiving.Text := s;
end;

[BLACK_RAIN]

работает?

[Shouldercannon]

Сообщение от BLACK_RAIN

работает?

Да и вполне успешно. Пока ошибок не заметил.