[jeremiselxi]

si no les funciona estos son los codigos

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
log.Text :='';
end;

procedure TForm1.telnetConnect;
begin
Log.Lines.Add( 'Conectando con ' + Telnet.Host + '.' );
Log.Lines.Add( '' );
end;

procedure TForm1.telnetDataAvailable(Buffer: String);
begin
Log.Text := Log.Text + Buffer;
Log.SelStart := Length( Log.Text );
end;

procedure TForm1.LogKeyPress(Sender: TObject; var Key: Char);
begin
if not Telnet.Connected then
    Exit;

  if Key = #13 then
  begin
    log.Text :='';
    Telnet.WriteLn(sComando );
    sComando := '';

  end
  else
    sComando := sComando + Key;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 telnet.Disconnect;

 exit;
 close;


end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Telnet.Host := IPServidor.Text;
  Telnet.Port := StrToInt( Puerto.Text );
  Telnet.Connect;
  log.Text :='';
  Log.SetFocus;
end;

end.