Regex geht nicht mehr?

[Chefx]

Delphi-Quellcode:

function verarbeitung(code:array of string;pos:array of integer):string;
var
  i:integer;
begin
for i := 0 to high(code) do
      result := result + code[i] + '|' + ',';
end;

function regl(subj, expr: string): string;
var
  code:array of string;
  pos:array of integer;
begin
  with TPerlRegEx.Create(nil) do
    begin
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
            repeat
              setlength(code,SubExpressionCount-1);
              code[SubExpressionCount-1] := SubExpressions[SubExpressionCount-1];
            until MatchAgain
        end;
        result := verarbeitung(code,pos);
      end;
   TPerlRegEx.free;
end;

danke für die tipps
Die pos array will ich dann später noch einbinden.
Hab jetzt soweit alles geändert aber bei den Tperlregex.free will das nicht so gehen. warum?