Jedesmal wenn ich mein Programm starte und auf den Button Klicke bei dem folgendes passieren sollte:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button37Click(Sender: TObject);
begin
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    Edit9.Text := '/';
  end
  else with IdFTP1 do try
    Username := Edit10.Text;
    Password := Edit23.Text;
    Host := Edit4.Text;
    Port:=21;
    Connect; {<--------------- Fehler liegt hier}
    Self.ChageDir(Edit9.Text);
    SaveFTPHostInfo(Edit9.Text, 'FTPHOST');
  finally
    if Connected then begin
    end;
  end;
end;

Dann kommt folgender Error: "... class Elisterror. List index out of bounds (1). Process stopped."
Dieser Teil ist übernommen vom Indy-Client-Beispiel. Ich bin 100% sicher, dass ich Edit4.Text nicht mit Edit10 oder Edit23.Text verwechselt habe (mehrere Male überprüft).
Ich kriege einfach nicht heraus, wo der Fehler liegt.

Vielleicht kann er nicht sauber verbinden? Probiere mal, ob sich was ändert, wenn Du den Passive-Mode aktivierst.