[kast2k]

Добрый день!
Вопрос в следующем:
Есть listbox заполненный как
123
123
123
apl
apl
apl
123
123
apl
apl
apl
apl
123
123
Задача: определить начало и конец записей типа apl. Т.е. на выходе должно получиться что-то типа этого:
1. apl 3-5
2. apl 8-11

Пробовал в коде, но выходит не совсем то:

Код:

var
i,k:integer;
begin
for i := 0 to listbox1.Items.Count-1 do
  begin
  if listbox1.Items.Strings[i]='apl' then
    begin
    k:=i;
    memo1.Lines.Add(inttostr(i));
    if listbox1.Items.Strings[k+1]='apl' then
      begin
      inc(k);
      end
      else
      memo1.Lines.Add(inttostr(k));
    end;
  end;
end;

Подскажите, пожалуйста, правильный алгоритм поиска.

Спасибо.