Delphi 7 получает имя папки от пути

Вы можете получить все, что идет после последней обратной косой черты, с помощью ExtractFileName , которое находится в модуль SysUtils.

Чтобы напрямую проанализировать эту строку и просто вернуть «Borland», вы можете сделать следующее:

uses SysUtils;

Delete(Path, 1, LastDelimiter('\', Path));

попробуйте использовать функцию ExtractFileName, эта функция работает (для вашего примера) только если ваш путь не заканчивается обратной косой чертой, поэтому вы можете использовать функцию ExcludeTrailingPathDelimiter, чтобы убрать последнюю обратную косую черту.

см. этот пример

program ProjectExtractPathDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    Path : string ;
begin
  Path:='C:\Program Files\Borland';
  Writeln(ExtractFileName(Path));//return Borland

  Path:='C:\Program Files\Borland\';
  Writeln(ExtractFileName(Path));//return ''

  Path:='C:\Program Files\Borland\';
  Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland


  Readln;
end.

проверьте эту ссылку для получения дополнительной информации

Маршруты манипуляции путями