Does anyone know a code I can use to count the number of folders in a specified directory?

delphi delphi-2010
Edit
Report