delphi IdTelnet的使用

unit main;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
 IdTCPClient, IdTelnet;type
 TForm1 = class(TForm)
     Button1: TButton;
     IdTelnet1: TIdTelnet;
     Button3: TButton;
     Memo1: TMemo;
     Edit1: TEdit;
     Label1: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure onCloseClick(Sender: TObject; var Action: TCloseAction);
     procedure myDataAvailable(Sender: TIdTelnet; const Buffer: String);
     procedure Button3Click(Sender: TObject);
 private
     { Private declarations }
 public
     { Public declarations }
 end;var
 Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 begin
 if( not IdTelnet1.Connected ) then
 begin
     IdTelnet1.Connect;
 end
 end;procedure TForm1.myDataAvailable(Sender: TIdTelnet; const Buffer: String);
 begin
 Memo1.Text := Memo1.Text + 'n' + pchar(Buffer);
 //定位Memo到底部，显示最新输入
 SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);
 end;procedure TForm1.onCloseClick(Sender: TObject; var Action: TCloseAction);
 begin
     IdTelnet1.Disconnect;
 end;procedure TForm1.Button3Click(Sender: TObject);
 var
 b:String;
 i:Integer;
 begin
 if( IdTelnet1.Connected ) then
 begin
     b:= Edit1.Text;
     Edit1.Text := '';
     //这里换成SendCmd之后会死在这，未找到解决办法
     for i:=1 to Length(b) do
       IdTelnet1.SendCh(b[i]);
     IdTelnet1.SendCh(#13);
 end
 else
 begin
     Application.MessageBox('连接已断开，请重新连接','系统提示');
 end;
 end;end.