Path in seine Unter-Ordner zerlegen

[bernhard_LA]

gibt es eigentlich schon Funktionen in Delphi um aus einem Pfad die einzelnen Unterorder zu extrahieren
ich dachte an eine Funktion wie ....

1. GetSubFolderName('c:\temp\test\heute\demo', 0) ergibt dann c:
2. GetSubFolderName('c:\temp\test\heute\demo', 1) ergibt dann c:\temp\
3. GetSubFolderName('c:\temp\test\heute\demo', 2) ergibt dann c:\temp\test\
   ....