Indy Telnet idtelnet Problem mit sendch()

[Oliver1983]

Hi,


bin am verzweifeln versuche mit der Indy 10 Kompo. IDTelNet eine verbindung zu meiner FritzBox aufzubauen.
Das klappt auch, aber wenn ich jetzt das Passwort aus einem Edit Feld mit sendCh() sende, gibt er mir immer "Login failed" aus, so langsam verstehe ich nicht warum denn das Passwort ist richtig und mit Putty komm ich auch ohne Probleme rein

hier noch etwas Code:

Delphi-Quellcode:

procedure TForm4.Button9Click(Sender: TObject);
begin
 IdTelnet1.Host := LabeledEdit1.Text;
 IdTelnet1.Port := 23;
 IdTelnet1.Connect;
end;

procedure TForm4.Button11Click(Sender: TObject);
var
i : Integer;
password: string;
begin
   password := LabeledEdit2.Text;

   for i := 1 to  length(password) do
    begin
   //  ShowMessage(password[i]);
     idTelnet1.SendCh(password[i]);
    end;
   idTelnet1.SendCh(#13);

end;

procedure TForm4.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: string);
const
    CR = #13;
    LF = #10;
var
    Start, Stop : Integer;
begin
  if Memo2.Lines.Count = 0 then
      Memo2.Lines.Add('');

  Start := 1;
  Stop  := Pos(CR, Buffer);
  if Stop = 0 then
      Stop := Length(Buffer) + 1;
  while Start <= Length(Buffer) do begin
      Memo2.Lines.Strings[Memo2.Lines.Count - 1] :=
          Memo2.Lines.Strings[Memo2.Lines.Count - 1] +
          Copy(Buffer, Start, Stop - Start);
      if Buffer[Stop] = CR then begin
          Memo2.Lines.Add('');
          {$IFNDEF Linux}
          SendMessage(Memo2.Handle, WM_KEYDOWN, VK_UP, 1);
          {$ENDIF}
      end;
      Start := Stop + 1;
      if Start > Length(Buffer) then
          Break;
      if Buffer[Start] = LF then
         Start := Start + 1;
      Stop := Start;
      while (Buffer[Stop] <> CR) and (Stop <= Length(Buffer)) do
          Stop := Stop + 1;
  end;

end;

Ich hoffe ihr könnt mir helfen

Gruss Olli