急急：用delphi编程连接telnet，通过delphi程序在telnet上执行命令(50分)

我想做一个程序，执行确定按钮后，此程序自动能连接telnet，
包括自动输入用户名和用户密码
并能从程序的edit.text上调用参数能执行某条命令。
这样就不用登录telnet，很麻烦的
最好能详细点，先谢了

用TIndyTelnet组件。

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:='';
Edit1.Text:='10.10.1.11';
Edit2.Text:='23';
ClientSocket1.ClientType:=ctNonBlocking;
if ClientSocket1.Active then exit;
ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Port:=StrToInt(Edit2.Text);
ClientSocket1.Active:=True;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
bufchar;
count:integer;
begin
count:=Socket.ReceiveLength;
GetMem(buf,count+1);
ZeroMemory(buf,count+1);
Socket.ReceiveBuf(buf^,count);
Memo1.Lines.Add(buf);
FreeMem(buf);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
bufchar;
count:integer;
sBuf:string;
begin
sBuf:=Edit3.Text+#13+#10;
count:=length(sBuf);
GetMem(buf,count+1);
ZeroMemory(buf,count+1);
StrPCopy(buf,sBuf);
ClientSocket1.Socket.SendBuf(buf^,count);
FreeMem(buf);
Edit3.Text:='';
end;
我试过的，可以。如果你想要让程序自动执行这些命令的，可以设置一个定时器呀
然后将Edit3中的内容变换成你所要的执行的命令，并且要让该按钮随着Edit3
内容的改变自动执行。

我想用idtelnet实现

你好hahali:我试了一下你的程序，
连21端口的ftp时没问题，连23端口telnet
时出错，怎么回事啊

那你就用 idtelnet做啊，indy9有例子

你好hahali:我试了一下你的程序，
连21端口的ftp时没问题，连23端口telnet
时出错，怎么回事啊

我已发到你的信箱了

接受答案