Filhantering i Delphi?

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?