[dec]

Hola,

Según Zarko Gajic esto podría servir:

Código Delphi [-]
//returns the parent directory for the
//provided "path" (file or directory)
function GetParentDirectory(path : string) : string;
begin
  result := ExpandFileName(path + '\..')
end;

Y la verdad es que es curioso. Lo explica el propio Zarko Gajic, claro.