Problem mit POS und COPY

[Trax]

Hallo alle zusammen.

Ich habe ein kleines Problem.
Ich habe in einer whatever.txt file einen beliebigen text stehen.

Bsp:
"Alle meine Entcheeeeeeen
Schwimmen in einem Seeeeeeee"

Ich versuche nun aus dem Text alle e's rauszusuchen
mein code zeigt aber nur 2 gefundene e's in Zeile 1 und Zeile 2
ich hab keine ahnung wie ich es schaffe alle e's zu lesen

Habs mit einer schleife probiert, hat aber nicht geklappt
Der folgende source funktioniert... findet aber nur immer 1 string in 1 zeile

Kann mit da jemand unter die arme greifen?

Vielen Dank schonmal im voraus!

Delphi-Quellcode:

procedure TForm1.SuchButtonClick(Sender: TObject);
var
temp :string;
such :string;
result :array[0..100] of string;
i, j, anf, lang: integer;
begin
such:=edit1.Text;
Reset(Txt);
i:=0;
j:=0;
While not EOF(txt) do
  begin
  ReadLN(Txt, temp);
  lang:=length(such);
  anf:=pos(such, temp);
  if anf <> 0 then
    begin
    result[i]:=copy(temp, anf, lang);
    memo2.lines.add('Gefunden in Zeile '+inttostr(j)+');
    inc(i);
    end;
  inc(j);
  end;
end;