Ftp upload total progress for multiple files

[Gintaras]

Cannot show total progress.
Progress dialog for each file:

Ftp f.Connect(...)
f.DirSet(...)
f.SetProgressDialog(1)
f.FilePut(...)
f.FilePut(...)