Verbindung mit Telnet zum Router

[dopeline]

Also ich habe das jetzt mal in das OnClose-Ereignis eingebettet:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini:TiniFile;
    i: Integer;
begin
 ini:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'telnet.cfg');
  try
   ini.WriteString('Connection','HostIP',EditHost.Text);
   ini.WriteString('Connection','Username',EditUser.Text);
   ini.WriteString('Connection','Password',EditPass.Text);
   ini.WriteString('Connection','Port',EditPort.Text);
  finally
   ini.Free;
  end;

  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;
end;

folgendes passiert:
erst verbinde ich zum router (lass mir auch ne bestätigung ausgeben in dem memo).
dann klick ich auf schließen (X) --> In dem Memo erscheint dein Text "*** QUITING" aber das programm schließt sich nicht. (auch keine fehlermeldung) ich kann dann noch ein paar mal draufklicken, ohne das was passiert. nach dem 4ten klick schließt es sich, ohne eine fehlermerldung... habs mehrmals probiert, immer nach dem vierten mal schließt es. habs auch mal n weilchen stehen lassen, hätt ja sein können, dass das disconnecten etwas dauert.

woran könnte das denn liegen?

dopeline