关于tidtelnet的问题 附源码 请帮我看一下

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
 user ,pwd : string;
begin
  IdTelnet1.Host :=host.Text;
  try
  user :='root';
  pwd :='root';
  IdTelnet1.Connect;
  Application.HandleMessage;
  for i := 1  to length(user) do
    IdTelnet1.SendCh(user[i]);
  IdTelnet1.SendCh(#13);
  for i := 1 to length(pwd) do
    IdTelnet1.SendCh(pwd[i]);
  IdTelnet1.SendCh(#13);
  Application.ProcessMessages;
  ShowMessage(inttostr(i));
  finally
 //IdTelnet1.Disconnect;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  cmdstr : string;
  i : integer;
begin
  cmdstr :='date';
  for i := 1 to length(cmdstr) do
    IdTelnet1.SendCh(cmdstr[i]);
  IdTelnet1.SendCh(#13);
end;procedure TForm1.IdTelnet1DataAvailable(Buffer: String);
begin
    memo1.text := buffer;{}end;不执行date的结果
在memo中有一些乱码

Answer 1

这样呢，
Memo1->Lines->Add("<<< "+Buffer.SubString(0,Buffer.Length()-1));
c++的代码。