[In0stRAnez]

использую вот это

Код:

var
  a:integer;
begin
  a:=0;
  while a<Form5.ListBox1.Count do
    begin
      if Form5.ListBox1.Items[a]='Заголовок' then
        begin
          inc(a);
          while Form5.ListBox1.Items[a]<>'Конец' do
            begin
              Form5.Memo3.Lines.Add(Form5.ListBox1.Items[a]);
              inc(a);
            end
        end;
      inc(a);
    end
end;

но почему то вылетает ошибка -
EstringListError - list index out of bounds (..)

а так всё работает.. видно до ошибки заполняет..