Koden är skriven i php
if ($handle = opendir('.')){
while (false !== ($file = readdir($handle))){
if ($file != "." && $file != "..") {
$dfile = $file;
$sfile = $file;
$upload2 = ftp_put($site, $dfile, $sfile, FTP_BINARY);
}
}
closedir($handle);
}

Finns nån motsvarande lösning för detta i Delphi?

Kolla här under Tips o Trix Filer,tror du hitta ett bra svar där.
http://www.fuzzydizzie.com/d_index.htm