[alexprey]

im_zorg, какой то корявый алгоритм. С длинными путями будет долго считывать и есть файлы такого типа "blabla.mp3.bak". Собственно функция достаёт из любого имени расширеине

function GetFileExt(name: string): string;
 var i: integer;
     c: char;
     return: string;
begin
 return:= '';
 for i:= Length(name)-1 downto 0 do
 begin
  c:= GetChar(name,i);
  if c <> '.' then return:= c + return else break;
 end;
 GetFileExt:= return;
end;