Модуль: SysUtils

Описание
Функция возвращает путь к файлу, извлекая его из полного имени файла FileName. Данная функция аналогична функции ExtractFileDir, за исключением того, что возвращаемый путь заканчивается символом наклонной влево черты. Если имя файла FileName не содержит ни имя каталогов, ни имя диска, то функция возвращает пустую строку.
Данная функция поддерживает работу с многобайтовыми наборами символов (MBCS).

Пример
var
   S: string;
begin
...
   S:= ExtractFilePath( 'C:\DIR1\DIR2\myfile.zzz');  //S :='C:\DIR1\DIR2\'
...
end;