имхо, правильнее протокол проверять через AnsiStartsText.
класс TIniFile, метод:
Код:
procedure ReadSection(const Section: string; Strings: TStrings); override;
загрузить во временный TStringList и в цикле по Strings[] через AnsiEndsText проверять расширение.