Einen Verzeichnis oberbei

[ele]

Wenn der Pfad kein abschliessendes '\' enthält kannst du ExtractFileDir() benutzen.

Um sicherzustellen das dies der Fall ist, benutzt man ExcludeTrailingPathDelimiter().

Das Endresultat sieht in etwa so aus:

ParentDir := ExtractFileDir(ExcludeTrailingPathDelimiter(Path)) Du musst aber wahrscheinlich noch den Fall behandeln wenn der Angegeben Pfad ein Wurzelverzeichnis ist (C:\, D:\, etc.)

Edit: jaenicke war schneller