text zwischen zwei einträgen auslesen

[Delphi_Coder]

Diese Funktion sucht im TMemo nach den beiden Strings vS und nS und gibt des Text dazwischen aus.
Ich will damit HTML Dateien durchsuchen und den Text zwischen zwei Tags auslesen. Nur funktioniert das bei größeren Dateien nicht.

Vielleicht kann mit jemand von euch helfen.

Delphi-Quellcode:

function zText(vS: String; nS: String; M:TMemo):String;
var
  vI,nI:  Integer;
  I:    Integer;
  S:    String;
begin
  Result:='';
  S:=M.Lines.Text;

  vI:=Pos(vS,S);
  nI:=Pos(nS,S);

  if (vI<>0) or (nI<>0) then
  begin
    for I:=vI+Length(vS) to nI-1 do
      begin
        Result:=Result+S[I];
    end;
  end;
end;

danke schon im vorraus