idtelnet 中文乱码问题

Question

//发送过去
procedure TfrmTelnetDemo.edtSendCommandKeyPress(Sender: TObject;
  var Key: Char);
var
  i : integer;
  s : string;
begin
if IdTelnetDemo.Connected then
  if (key = #13) then
    begin
    s := edtSendCommand.text;
    for i := 1 to length(s) do
      IdTelnetDemo.SendCh(s[i]);
    IdTelnetDemo.SendCh(#13);
    end;end;//接收数据procedure TfrmTelnetDemo.IdTelnetDemoDataAvailable(Sender: TIdTelnet;
  const Buffer: String);
{This routine comes directly from the ICS TNDEMO code. Thanks to Francois Piette
 It updates the memo control when we get data} begin
      Memo1.Lines.Add(UTF8Encode(buffer));//////////乱码
      showmessage(buffer);/////////////////乱码end;
帮忙啊

Answer 1

UTF8Encode 转换后还是乱码！

Answer 2

好像输出来是ansi的样式
我用UTF8toAnsi 与没有转换时乱码样式是一个样的

Answer 3

我觉得可能与delphi 2010 的编码有关。请牛人指示如何处理。