Wann hätte ich diesen Verzeichnispfad:

C:\Program Files (x86)\Embarcadero\

Die gesuchte Funktion sollte zurückgeben:

C:\Program Files (x86)\

Ich habe diesen Code ausprobiert, aber er funktioniert nur für Dateien, nicht für Verzeichnisse:

function GetParentDirectory(const Path: string): string;
begin
  Result := ExpandFileName(Path);
end;

Weiß jemand, was ich verwenden soll, um Pfad zum übergeordneten Ordner eines bestimmten Verzeichnisses zurückzugeben?