Como obter o caminho para a pasta pai de um determinado diretório?

Quando eu teria esse caminho de diretório:

C:\Program Files (x86)\Embarcadero\

A função que estou procurando deve retornar:

C:\Program Files (x86)\

Eu tentei esse código, mas ele funciona apenas para arquivos, não para diretórios:

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

Alguém sabe o que devo usar para retornar o caminho para a pasta pai de um determinado diretório?

questionAnswers(3)

yourAnswerToTheQuestion