Stringblock aus Datei auslesen

[foxy]

sers leute
also ich habe folgendes problem ... ich habe 2 strings die ich angebe nach denen sucht mein programm in einer textdatei mit 9000 zeilen gibt diese Zeilen aus inder er diese Strings gefunden hat jetzt zu meinem Probelm
Also ich will zwischen den ausgegeben Zeilen die dazwsichenligeneden auch noch ausgeben
ich habe das so geschrieben bisher

Delphi-Quellcode:

with dbmemo1 do
   scrollBars:=SSboth;
   ReSet(f);     //Datei zum Lesen öffnen
   DBMemo1.Clear;      //Memo leeren
   r1:=0;
   ZNr:=0;
   Repeat
    ZNr:=ZNr+1;
    ReadLn(f,Zeile); //Zeile lesen
    If Pos(EditZeit.Text,Zeile)>0 Then //wenn String in Zeile gefunden
    begin
      DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+':  '+Zeile);
      repeat
      r1:=r1+1;
      ZNr:=ZNr+1;
      Readln(f,Zeile);
      DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+':  '+Zeile );
      [color=red]
      //hier sollte er nun alle dazwischenliegenden Zeilen auch ausgene
      //nur er bricht wenn er eine Zeile hat ab was iss das er bricht 
      //die schleife einfach ab[/color]
      
      p:=pos(';',DBmemo1.Lines.Strings[r1]);
      while (p>0) do
        begin
        if p-1 >0 then
        begin
          s1:=copy(DBmemo1.Lines.Strings[r1],1,p-1);
          showmessage(s1);
        end;
        delete(DBmemo1.Lines.Strings[r1],1,p);
        p:=pos(';',DBmemo1.Lines.Strings[r1]);
        end;
     until Pos(Editzeit.Text,Zeile)=0;
     end;
     If Pos(EditZeit2.Text,Zeile)>0 then
       DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+':  +'Zeile ); 
       Until EOF(f);

Bidde bidde um hilfe bei fragen noch einfach stellen dann erklär ich was ihr nich versteht zum problem