[v1s2222]

Исправь проверку, хоть так:

Код:

...
while (Form5.ListBox1.Items[a]<>'Конец') or (a = Form5.ListBox.Count) do
...

Или же

Код:

var
  S: TStringList;
  i, k: Integer;
begin
  S:=TStringList.Create;
  S.Add('Заголовок.');
  S.Add('1');
  S.Add('2');
  S.Add('3');
  S.Add('Конец.');
  S.Add('4');

  for i:=0 to S.Count-1 do
    if(AnsiUpperCase(S.Strings[i]) = 'ЗАГОЛОВОК.') then begin
      k:=i+1;
      While(AnsiUpperCase(S.Strings[k]) <> 'КОНЕЦ.') or (k = S.Count) do begin
        Memo1.Lines.Add(S.Strings[k]);
        inc(k);
      end;
    end;

  S.Free;