[Rokuell]

Aristarh Dark, А если так ?

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir\';
 ShowMessage(Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1));
 ShowMessage(ExtractFilePath(Path));
end;

Вариант 1 выдаёт: C:\ParentDir\
Вариант 2 выдаёт: C:\ParentDir\ChildDir\