Delphi-Quellcode:
procedure procc(const l1:tstrings);
var
ll : tstrings;
begin
ll:=tstringlist.Create;
{fülle ll}
for i:=0 to ll.count-1 do
if pos('irgendwas',ll[i])>0 then l1.add(ll[i]); {!BP!}
ll.free;
end;
Ist natürlich nicht der Originalcode, aber es reicht.
Wenn schon nicht OriginalCode, dann doch bitte einen Code, der dem originalen entsprechen könnte.
Deine übergebene Strings (Memo.Lines) im Parameter l1 wird in dieser Prozedure niemals irgendetwas hinzugefügt werden, da die For-Schleife niemals durchlaufen wird.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.