Так он возвращает не родительскую директорию, а дочернюю по отношению к родительской (О завернул!)
А для получения родительской можно сделать так:
Код:
Var
Path: String;
begin
Path := 'C:\ParentDir\ChildDir\';
Form33.Caption := Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1);
end;
Если кто вспомнит как называется функция поиска строки справа, то можно сделать попроще.