Получение списка файлов через TIdFTP

/*что сделать, чтобы работал DirectoryListing компоненты TIdFTP?
Подключить модули для парсинга строк (имен файлов + атрибуты + размер), которые возвращает FTP.
Это: IdFTPListParseBase,IdFTPListParseAS400,IdFTPListParseBullGCOS7,IdFTPListParseBullGCOS8 и так далее. Затем — стандартно:*/
FTP.List;
for i:=0 to Pred(FTP.DirectoryListing.Count) do
   begin
ListBox1.Items.Add(FTP.DirectoryListing.Items[i].FileName);
   end;

#include "IdAllFTPListParsers.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdExplicitTLSClientServerBase"
...
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  IdFTP1->Username = "anonymous";
  IdFTP1->Password = " [email]XXXX@XXXXX.COM[/email] ";
  IdFTP1->Host = "ftp.borland.com";
  IdFTP1->Port = 21;
  IdFTP1->AutoLogin = true;
  IdFTP1->Connect();
  IdFTP1->List( NULL, "", true);
  for(int i = 0; i < IdFTP1->DirectoryListing->Count; ++i) {
    ...
  }
}

#include <IdFTPListParseBase.hpp>
#include <IdFTPListParseUnix.hpp>
 
// Где-то нужно зарегистрировать парсер. Утверждается, что это надо запустить
// после того, как главное окно сконструировано. Я не заморачивался и воткнул пока
// в точку начала работы с FTP. В итоге оно вызывается несколько раз, но
// проблем от этого нет. Имя класса TIdFTPLPUnix нашёл в файле
// IdFTPListParseUnix.hpp - это я к тому, что если потребуются другие типы парсеров,
// то как их искать 
RegisterFTPListParser ( __classid (TIdFTPLPUnix));
 
IdFTP->Username = ...;
...
IdFTP->List (NULL, "", true);
// Здесь IdFTP->DirectoryListing->Count уже работает