Hallo und Willkommen in der
DP 
,
mit dem Gespann FindFirst, FindNext kannst Du durch den Ordner iterieren. Um festzustellen, ob es sich bei dem aktuellen Eintrag um ein Verzeichnis handelt, kannst Du die Attribute von TSearchRec auf faDirectory untersuchen. Als Beispiel für so etwas kannst Du einmal nach
FindAllFiles suchen.