temp := ExtractFileName( sr.Name ); //получаем имя файла tempExtless := Copy(temp, 1, Pos(ExtractFileExt(temp), temp) - 1); //получаем имя файла без расширения