Как найти строки, сохраняя их порядок?

procedure FSearch(str: string; const iBufferSize: Integer);
var
  fs: TBufferedFileStream;
  sr: TStreamReader;
  line:string;
  p:integer;
  ar:array of string;
begin
  fs := TBufferedFileStream.Create(extractfilepath(paramstr(0))+'wordlist.txt', fmShareDenyNone, iBufferSize);
  try
    sr := TStreamReader.Create(fs,TEncoding.ANSI, False, 256);
    try
      repeat
       line:=sr.ReadLine;
        p:=Pos(line,str);
        if p>0 then begin
        SetLength(ar,p+1);
        ar[p]:=line;
        end;
       until sr.EndOfStream;
    finally
      sr.Free
    end;
  finally
    fs.Free;
  end;
for p:=Low(ar) to High(ar) do
form1.memo1.lines.add(ar[p]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
FSearch('найди следующие слова: ежик туман медведь луна талант',1024);
end;

procedure FMYSearch(str: string; const iBufferSize: Integer);
type
  WordsFound = record
    findPos: Integer; // позиция в строке StrNeedle
    findText: string; // текст из словаря
end;
var
  fs: TBufferedFileStream;
  sr: TStreamReader;
  p,len:integer;
  line:string;
  ar:array of WordsFound;
  n,i,j:byte;
  x:WordsFound;
begin
  fs := TBufferedFileStream.Create(extractfilepath(paramstr(0))+'wordlist.txt', fmShareDenyNone, iBufferSize);
  try
    sr := TStreamReader.Create(fs,TEncoding.ANSI, False, 256);
    try
      repeat
        line:=sr.ReadLine;
        p:=Pos(line,str);
        if p>0 then begin
        len := Length(ar);
        SetLength(ar,len+1);
        ar[len].findPos := p;
        ar[len].findText:=line;
        for p:=p to p+Length(line)-1 do str[p] := ' ';
        sr.DiscardBufferedData;
        sr.BaseStream.Position:=0;
        end;
       until sr.EndOfStream;
    finally
      sr.Free
    end;
  finally
    fs.Free;
  end;
n:=High(ar);
for i:=0 to n do
for j:=i+1 to n do
 if ar[i].findPos>ar[j].findPos then
   begin
    x:=ar[i];
    ar[i]:=ar[j];
    ar[j]:=x;
   end;
for p:=Low(ar) to High(ar) do
form1.memo1.lines.add(ar[p].findText);
end;

for i:=0 to n-1 do

begin
   str := ' '+str+' ';
...
   p:=Pos(' '+line+' ',str);