wie benutze ich regular expressions?

[nimmersattXD]

so ich hab mir jetzt ne funktion gebastelt, leider funktioniert sie nicht so wie sie sollte: also im gunde genommen passiert gar nichts, keine fehlermeldung und bei der ausgabe sieht der string genauso aus wie bei der eingabe aba so wie ich dich langsam einschaetze, findest du meinen fehler gleich !

Delphi-Quellcode:

function ReplaceHex(url: string):string;
var idx,code: integer;
    hex: string;
begin
  idx:=0;
  result:=url;
  repeat
    idx := PosEx('%',url,idx+1);
    if idx>0 then
      begin
      hex:=copy(url,idx+1,2);
      if TryStrToInt('$'+hex,code) then
        begin
        hex:= copy(url,idx,3);
        result:=StringReplace(url,hex,chr(code),[rfReplaceAll]);
        end;
      end;
  until idx = 0;

end;