IdTelnet控件简单入门问题

Question

请问人有熟悉delphi吗？用了IdTelnet控件基本的连接也有问题需要求助，我连接之后，再向服务器发消息，程序就停在那里了，不清楚怎么改，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTelnet1.Connect;
end;
procedure TForm1.myDataAvailable(Sender: TIdTelnet; const Buffer: String);
begin
  Application.MessageBox(pchar(Buffer),'ok');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTelnet1.Disconnect;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  if( IdTelnet1.Connected ) then
  begin
    Application.MessageBox('connect ok','ok');
    IdTelnet1.SendCmd('csnowfox',-1);
  end;
end;end.

Answer 1

看看indy DEMO吧,里面有现成的DEMO