Чтение опеределенных строк из файла

[Dennis777]

Возникла следующая проблема. Существует текстовый файл к примеру с 4 заголовками. Каждый заголовок имеет свой порядковый номер(1, 2, 3, 4). Подскажите плиз, как прочесть строки, которые находятся к примеру между первым и вторым заголовком?

[VilAm]

язык программирования7

[Dennis777]

Желательно в Делфи)

[VilAm]

пример текстового файла можно7

[Dennis777]

Ну к примеру так:

1 Материки
Евразия
Австралия
Северная Америка
2 Страны
Россия
Украина
Канада
3 ...
...
Необходимо прочитать строки между 1 пунктом и вторым(Европа, Австралия, Северная Америка)

[VilAm]

ну например вот так
запусти exe - шник и в файле 2.txt увидишь строчки

var
   f:textfile;
   f1:textfile;
   s:string;
   t1,t:Boolean;
begin
   AssignFile(f,'1.txt');
   Reset(f);
   AssignFile(f1,'2.txt');
   Rewrite(f1);
   t:=True;
   t1:=False;
   while t=true do begin
    Readln(f,s);
    if s[1]='1' then t1:=True;
    if s[1]='2' then begin
     t:=False;t1:=false  end;
     if t1 and (s[1]<>'2')and (s[1]<>'1') then
      Writeln(f1,s);
   end;
   CloseFile(f);
   CloseFile(f1);
end.

[Dennis777]

Большое спасибо))