Du könntest mit FindFirst und FindNext
die Ordnerstruktur rekursiv auslesen.
Die gewonnenen Informationen dann
in einem TTreeview verwenden.
Zur rekursiven Suche mit FindFirst und FindNext
sollten genügend Beispiele in der
DP vorhanden sein.
Zur Verwendung von TTreeView sollte ein Blick in die
Delphi Hilfe helfen.
Grüße
Klaus