idTCP не принимает русский текст.

[raxp]

>>> см. вложение

[TwiX]

Не работает. Выкладываю код:
Server:

procedure TformChatServer.TCPSExecute(AContext: TIdContext);
var
  msg,i,j,len: integer;
  messag: string;
begin
  msg:= AContext.Connection.IOHandler.ReadLongInt;

  //Recieving message
  if msg=CHAT_SENDING_MSG then
  begin
    len:=AContext.Connection.IOHandler.ReadLongInt();
    messag:=AContext.Connection.IOHandler.ReadString(len, enUTF8);

    AddMessage(reMessages, messag, users[i].nick); //сюда не смотреть) Половину кода вырезал)
end;
end;

Client:

with TCPC.IOHandler do
  begin
    Write(Integer(CHAT_SENDING_MSG));
    Write(Length(reMessage.Text));
    Write(reMessage.Text, enUTF8);

    AddMessage(reMessages, reMessage.Text, edtNick.Text);

    reMessage.Clear;
  end;

Ангилйское приходит, а вот если сообщение содержит русские буквы, по приходит пустое сообщение.

Update:
И компилятор выдаёт варнинг, что enUTF8 устарел

Update2:
Проблема решена ровно наполовину) Если заменить в коде выше enUTF8 на TIdTextEncoding.Unicode, то будет доходить ровно половина посланного текста.

Update3:
Проблема решена) Заменил Unicode на GetEncoding(1251). Теперь можно и поспать)