Telnet mit IdTelnet - Warten bis Ready?

[c.wuensch]

Also, das mit dem Aufzeichnen von Sessions wird so nix ;-(

Ich habe jetzt versucht, mit folgendem Code das Programm zum Warten zu bringen:

Delphi-Quellcode:

// sendet ein Command an Telnet, und setzt dabei Busy-Variable, die erst bei Ausgabe in IdTelnet1.OnDataAvailable wieder auf false gesetzt wird
procedure TForm1.TelnetCommand (Telnet: TIdTelnet; CommandStr: String; SendEnter: Boolean = False);
var i: Integer;

  procedure TelnetChar (CurChar: Char);
  begin
    Telnet.SendCh (CurChar);
    TelnetBusy := True;
  end;

begin
  For i:=1 To Length(CommandStr) Do TelnetChar(CommandStr[i]);
  If SendEnter Then Begin
    TelnetChar(#13);
    TelnetBusy := True;
  End;
end;

// die eigentliche Prozedur
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdTelnet1.Connect();
  finally
    If IdTelnet1.Connected Then
      Memo1.Lines.Add('Verbindung zu 192.168.1.1 hergestellt!')
  end;

  TelnetCommand (IdTelnet1, '*******', True);  // sendet das Passwort mit o.a. Prozedur
  [...]

  try
    TelnetCommand (IdTelnet1, 'e');  // beendet das Router-Menü
    While TelnetBusy Do Application.ProcessMessages;  // wartet
    IdTelnet1.Disconnect;  // beendet Telnet-Verbindung
  except
  end;
end;

Das Problem dabei ist, dass mit diesem Code das IdTelnet1.Disconnect anscheinend schon nach der Eingabe der ersten 2 Zeichen des Passworts ausgeführt wird. Das heißt also - nichts passiert ;-(

Weiß vielleicht jemand, was ich an dem Code verbessern muss, damit es klappt?

Oder noch besser, gibt es denn irgendeine (bessere) Möglichkeit, zu warten bis das Telnet wieder Ready ist (vielleicht eine Eigenschaft von TIdTelnet oder so)?

Cu, Chris