Verbindung mit Telnet zum Router

[faux]

Ich hab das selbe Problem bei einer Telnet-Verbindung zu nem IRC-Server gehabt und habs so gelöst:

Delphi-Quellcode:

if Telnet1.Connected then
  begin
    Telnet1.WriteLn('QUIT :');
    Memo1.Lines.Add('*** QUITING');
    while Telnet1.Connected do
      for i := 0 to 10000 do
        Application.ProcessMessages;
  end;

Müsste doch ähnlich gehen, oder?