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;