ExtractFileExt

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

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

{Pascal Script}
Var
   s:string;

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

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