Если точка Ext имеет соединение, но строка пуста, программа падает.

  CharLower(PChar(fn));

  CharLower(@fn[1]);