Удаление всех строк из RichEdit, начиная с определённой строки

[ondar]

Каким образом можно удалить все строки из RichEdit, начиная с определённой строки?
Пусть имеется файл, состоящий из строк текста:
-------------------------------------------------
[овощи]
помидор
огурец
морковь

[фрукты]
яблоко
груша
апельсин
мандарин
абрикос
-------------------------------------------------
Каким образом можно удалить все строки, начиная со строки [фрукты]?

вот код:
-------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  i:integer;
begin
  RichEdit1.Lines.LoadFromFile('meet.txt');
  for i:=0 to RichEdit1.Lines.Count-1 do
  begin
    str:=RichEdit1.Lines[i];
    if pos('[фрукты]',str)>0 then
    begin
      RichEdit1.Lines.Delete(i);
    end;
  end;
end;

-------------------------------------------------
в этом случае удаляется только строка [фрукты]

[Человек_Борща]

Твой файл напоминает мне INI вот ты и грузи его как INI.
А затем TiniFile.EraseSection('[TRY-section]');

[ondar]

А по-другому никак?

[Valio]

Засунуть это в цикл While и выйти из него когда Count будет равен номеру строки после которой нужно удалять.

RichEdit1.Lines.Delete(номер строки после которой нужно удалять);

В общем замысел понятен.

[Serge_Bliznykov]

проиллюстрирую идею Valio примером кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, FindI : integer;
begin
  RichEdit1.Lines.LoadFromFile('meet.txt');
  FindI := -1;
  for i:=0 to RichEdit1.Lines.Count-1 do
    if pos('[фрукты]',RichEdit1.Lines[i])>0 then
    begin
      FindI := i;
      break
    end;

  // если что-то нашли, то удалим все строки больше-равные найденному номеру
  if FindI>=0 then
    for i:=RichEdit1.Lines.Count-1 downto FindI do
       RichEdit1.Lines.Delete(i);

end;

[ondar]

Спасибо, товарищи, что помогли!