ExtractFileDir

Функция ExtractFileDir() извлекает из полного пути к файлу, подстроку расположения файла на диске.

ExtractFileDir(FileName): String
FileName: String	Имя файла с полным путем.
Функция возвращает строку, содержащую путь к указанному файлу.

{Pascal Script}
Var
   s:string;

Begin
   s := ExtractFileDir('c:\slProject\library\Бочка\Бочка_1Желтый.wmf');
   AddToDebugLog(s);
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.