[NumLock]

Код:

var
  i: Integer;
  n: Integer;
begin
  n:=-1;
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    if ListBox1.Items[i]='apl' then
    begin
      if n=-1 then n:=i;
    end else
    begin
      if n<>-1 then
      begin
        Memo1.Lines.Add('apl '+IntToStr(n)+'-'+IntToStr(i-1));
        n:=-1;
      end;
    end;
  end;
end;