Парсинг текста между ключевых слов

[Lauri]

Подскажите пожалуйста как лучше реализовать.
Есть текстовый файл от 1 до 10мб.
Нужно спарсить оприделённые данные которые находятся в блоках текста между ключевого слова.
Например в тексте повторяется строка

Start

И нужно получить в отдельный StringList текст между ключевыми словами, после чего обработать. Как обработать, и получить нужный выходной результат я знаю, но как лучше получить текст не знаю.

Начал что то писать, но не идёт

part := tstringlist.Create;
  Num := tstringlist.Create;
  for i := 0 to memo1.Lines.count - 1 do
    if pos('start ', memo1.Lines[i]) = 1 then
    begin
      CCcount := CCcount + 1;
      Num.Add(i);
    end;
  Label1.Caption := 'Count CC : ' + IntToStr(CCcount);
  for i := 0 to cccount - 1 do
  begin
   for ii:=0 to Num.count-1 do
   Part.add
  end;

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

Не используйзуйте циклы, они не нужны, т.е. нужны но не такие.
Вот пример:

var
 s:string; //some text
 st:string; // text between "start" and next "start" 
 p,p2:Integer;
begin
s:='MY VERY HUGE TEXT';
p:=1;
repeat
 p:=Pos('start',s);
 p2:=0;
 if p > 0 then
 begin
  p2:=Pos('start',s,p+Length('start'));
  if p2>0 then
  st:=Copy(s,p+Length('start'),p2) else
  st:=Copy(s,p+Length('start'),Length(s)); //если текст ищется в конце файла и после start уже не будет др. start
  //Куда-то сохраняем текст из st
 
 end else Break;
until p = 0;

end;