function ExtractRelativePath(const BaseName, DestName: String): String;
Выполняет преобразование полного пути в относительный. Параметр BaseName — это полностью определённый путь основного каталога, который в итоге должен стать относительным. BaseName может включать или не включать имя файла, но обязательно должен содержать конечный разделитель пути (обратную косую черту). Параметр DestName определяет имя файла (включая путь) для преобразования.
Функция ExtractRelativePath удаляет имена каталогов в строке пути и заменяет их последовательностью '..\' для каждого уровня вложения каталогов.
var S: String; begin S := ExtractRelativePath('c:\windows\system32\', 'c:\autoexec.bat'); // Результирующая строка S = ..\..\autoexec.bat end;