Das ist ein Bug, der ab Delphi 2005 (oder 2006?) auftritt.
Du kannst dir entweder die neueste Indy Version (Tiburon) installieren oder dir mit diesem Code aushelfen:
Code:
uses IdAllFTPListParsers;
[...]
var
I: Integer;
begin
IdFTP1.Host := editFTPHost.Text;
IdFTP1.UserName := editFTPUsername.Text;
IdFTP1.Password := editFTPPassword.Text;
IdFTP1.AutoLogin := True;
try
IdFTP1.Connect;
IdFTP1.List;
for I := 0 to Pred(IdFTP1.DirectoryListing.Count) do
DirectoryListBox1.Items.Add(IdFTP1.DirectoryListing[I].FileName);
except
on E: Exception do ShowMessage(E.Message);
end;
end;