Sockets и Chr в Delphi 2010

[Shouldercannon]

Отправляю так

procedure TForm3.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'qwerty' + Copy(AnsiToUtf8(Chr(143)), 2, Length(AnsiToUtf8(Chr(143))));
  ClientSocket1.Socket.SendText(s);
end;

уходит: 'qwertyЏ'
Принимаю так

s := Socket.ReceiveText;

приходит: 'qwertyЏ'
Всё верно, но

Memo1.Lines.Add(Copy(s, 1, Pos(Chr(143), s) - 1));

не работает. Пустота в Memo1.
Может нужно отправлять не

Chr(143)

, а #$008F.
По хорошему вообще избавиться от Chr, но пока не могу. Помогите пожалуйста разобраться.