ExtractFileName

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

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

{Pascal Script}
Var
   s:string;

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

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