Hab das jetzt selbst hinbekommen, muste das in einer Schleife ersetzen lassen, also hier der richtige Code:
Delphi-Quellcode:
function regExReplace(ARegEx, AReplace, AText: String): String;
begin
with TPerlRegEx.Create(nil) do
begin
RegEx := ARegEx;
Subject := AText;
Options := [preCaseLess,preSingleLine];
Replacement := AReplace;
if (Match() = TRUE) then
repeat
Replace;
until not MatchAgain();
result := Subject;
Free();
end;