INDY10 IRC ASCII Zeichen ersetzen

[Black-Rider]

Hallo,
wenn man im IRC Farben schreibt werden die immer als ASCII ausgeben.
Nun hab ich von meinem Kumpel (er hat nen IRC bot in php geschrieben) einen PHP Code, den ich eigl. bloß nach Delphi umschreiben muss, was aber leider nicht so ganz funkioniert. Der ASCII Code soll einfach weggelassen werden. Nich durch Farben ersetzt etc!
Der PHP Code sieht wie folgt aus:

Zitat:

$txc = preg_replace('/('.chr(3).'(([0-1][0-5]|[0-9])\,([0-1][0-5]|[0-9])|([0-1][0-5]|[0-9]))|'.chr(3).'|'.chr(2).'|'.chr(22).'|'.chr(9).')/',"", $tx);

Und ich hab diesen PHP Code soweit in Delphi "umgeformet":

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
var
  RegExpr: TRegExpr;
begin
  RegExpr := TRegExpr.Create;
  RegExpr.Expression :=  ('/(#3(([0-1][0-5]|[0-9])\,([0-1][0-5]|[0-9])|([0-1][0-5]|[0-9]))|#3|#2|#22|#9)/');
  RegExpr.Exec(Content);
  Content := RegExpr.Replace(Content, '');
  Memo1.Lines.add(auser.nick + ': ' + content);
end;

Das Programm lässt sich starten nur wird leider nix ersetzt!

MFG
Black-Rider