[Помогите!] memo вопросы вместо кириллицы

[mars2107]

Собственно в чате на udp при отправке кириллицы в мемо приходят вопросы.

Отправка:

IdUDPClient1.Send(Edit1.Text);

IdUDPServer1UDPRead

var
    s:string;

  begin
    s:='';
    s:=BytesToChar(AData);
  //вывод...
   memo1.Lines.Add(Abinding.PeerIP+' '+ s);
end;

Как починить?

[RenatPro]

Привет либо отправить текст в UTF8 или в memo выставить шрифт я забыл уже какой в Lazaruse Нет таких проблем!

Utf8ToAnsi(Memo1.Text); или AnsiToUtf8(Memo1.Text); пробуй

IdUDPClient1.Send(Utf8ToAnsi(Edit1.Text));

var
    s:string;

  begin
    s:='';
    s:=BytesToChar(AData);
  //вывод...
   memo1.Lines.Add(Abinding.PeerIP+' '+Utf8ToAnsi(s));
end;