Как получить путь к родительской папке определенного каталога?

Когда у меня будет этот путь к каталогу:

C:\Program Files (x86)\Embarcadero\

Функция, которую я ищу, должна вернуть:

C:\Program Files (x86)\

Я пробовал этот код, но он работает только для файлов, а не для каталогов:

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

Кто-нибудь знает, что я должен использовать, чтобы вернуть путь к родительской папке определенного каталога?