¿Cómo obtener la ruta a la carpeta principal de un determinado directorio?

Cuando tendría esta ruta de directorio:

C:\Program Files (x86)\Embarcadero\

La función que estoy buscando debería regresar:

C:\Program Files (x86)\

He intentado este código pero funciona solo para archivos, no para directorios:

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

¿Alguien sabe qué debo usar para devolver la ruta a la carpeta principal de un determinado directorio?