Delphi - ProgressBar che indichi l'avanzamento di un download Ftp

E' esattamente quello che ho fatto...
Il codice passa per gli eventi e infatti gli showmessage, siano utili o no, che ci metto dentro si avviano. Il problema è che AWorkCount mi restituisce un valore numerico maggiore di zero ma proprio la funzione AWorkCountMax mi restituisce 0. E perciò è ovvio che la progressbar non funzioni avendo come MAX 0.
Non riesco a capire come risolvere.

PS: ho anche tolto quel controllo Nil, ho provato di tutto...

Effettivamente io utilizzo quel codice per l'Upload di file, non ho mai utilizzato la procedura per fare il download.

In ogni caso, del controllo TIdFtp utilizzi la proprietà
DirectoryListing.Items[ind]...

e tra i valori disponibili dovrebbe esserci anche "size".

Credo quindi che la dimensione che ti serve sia
DirectoryListing.Items[ind].Size

Di seguito l'elenco delle proprietà di TIdFTPListItem, prese dall'Help in linea di Delphi 2007

Property Description
Data: Data from a directory listing response used to populate properties in the collection item.
FileName: Name for a file as assigned on the remote FTP server.
ItemType: Indicates the type of item represented by the collection entry.
LocalFileName: Suggested file name to used for the local file system.
ModifiedAvail: Indicates if last modification date and time values are available for the collection item.
ModifiedDate: Last modification date and time for the resource on the remote FTP server.
PermissionDisplay: User-displayable representation of permissions for the collection item.
Size: Indicates the allocated size for the file resource on the remote FTP server.
SizeAvail: Indicates if file size information is available in the Size property for the collection item.

Grazie. comunque ne ero a conoscenza della funzione Size.. ma essa dovrebbe coincidere con AWorkCountMax?

WOW FUNZIONA!!!!!
TI ADORO!!! SONO TRE GIORNI CHE MI SCERVELLO!!! GRAZIE MILLE

Per informazione ho sostituito al posto di AWorkCountMax la dimensione del file da scaricare!!!
E funziona!!