怎样执行远端linux服务器上的命令

[olivehb]

delphi怎样实现执行远端linux服务器上的命令mkdir /ss。
对不起，我是新手，我用的是TTcpClient控件，下面是我的代码，总是有问题，receivebuf之后，好像buffer里什么都没有，下面是我的代码，该怎么改，谢谢
telnetcom.RemoteHost := ipaddr;
telnetcom.RemotePort := '23';
telnetcom.Active := true;

if telnetcom.Connect = true then
begin

count := 0;

while count <= 0 do
count := telnetcom.ReceiveBuf(buffer,6);

loginstr := copy(buffer,1,1);
buffer := 'root'+ #10 + #13;
telnetcom.SendBuf(buffer,length(buffer));
//count := telnetcom.ReceiveBuf(buffer,length(buffer));

buffer := '!@#qwe' + #13 + #10;
telnetcom.SendBuf(buffer,length(buffer));

buffer := 'mkdir /hb ' + #13 + #10;
telnetcom.SendBuf(buffer,length(buffer));
// if telnetcom.Connect = true then
end;

telnetcom.Disconnect ;

[olivehb]

我只收到了一次数据，就是在连接的时候，等我输入用户名之后就再也没有收到过数据了，这是什么原因那？