Hiermit ...
Delphi-Quellcode:
lang:=length(such);
anf:=pos(such, temp);
if anf <> 0 then
begin
result[i]:=copy(temp, anf, lang);
... schreibst du jedesmal exakt deinen Suchstring in result[] (wenn er gefunden wurde). Ist das Absicht?
Dein memo2...-Befehl ist fehlerhaft (hinten bei der Klammer).
Schau mal, ob du mit
PosEx() etwas anfangen kannst.