Найти по части слова в StringList

[Shouldercannon]

Доброго времени суток!
Есть такой конфиг:

PHP код:

[MenuItem0]
MenuItemCaption=Debug
MenuItemImageIndex=0
MenuItemCaption=Debug2
MenuItemImageIndex=0 


Хочу с помощью него заполнить менюшку TMainMenu

const
  ANICaption = 'MenuItemCaption';
var
  MM, MItem: TMenuItem;
  I: Integer;
begin
  MM := Menu.Items.Find('Расширения');
  // Если пункт меню существует
  if MM <> nil then
  begin
    // Добавление пункта меню
    while Pos(ANICaption, SL.Text) > 0 do
    begin
      MItem := TMenuItem.Create(Self);
      MItem.Caption := SL.Values[ANICaption];
      //MItem.OnClick := ItemClick;
      MM.Add(MItem);
      // Получим индекс
      I := SL.IndexOf(ANICaption); // Ищет только, что указали и ни шагу в сторону
      if I > 0 then SL.Delete(I);
      // Не вариант, удаляет сразу всё
      for I := 0 to SL.Count - 1 do
      begin
        if Pos(ANICaption, SL.Strings[I]) > 0 then SL.Delete(I);
      end;
    end;
  end;
end;

Хочу удалить первый MenuItemCaption, чтобы цикл перешёл к дальнейшей обработке.
Циклом сносится сразу всё, SL.IndexOf ищет, только то, что указали. Просто MenuItemCaption найдёт, MenuItemCaption=что-то не найдёт.

[Sibedir]

1
Зачем TStringList? Есть же TIniFile.

2
Структуру файла нужно менять. Например

PHP код:

[Main]
ItemCount=2
[MenuItem0]
MenuItemCaption=Debug 
MenuItemImageIndex=0
[MenuItem1]
MenuItemCaption=Debug2 
MenuItemImageIndex=0 


Далее см. п. 1