IP-Adressen mit RegEx auslesen

[TriphunEM]

Hallo,

ich möchte eine alle IP-Adresse+Port (xxx.xxx.xxx.xxxx) aus der Zwischenablage rausfiltern.
ich nutze dazu die RegExPr-Kompo, aber mein Code will nicht so richtig funktionieren.

Delphi-Quellcode:

var
  RegEx: TRegExpr;
begin
  if Clipboard.HasFormat(CF_Text) then begin
    RegEx             := TRegExpr.Create();
    RegEx.Expression  := '/([0-9]{1,3}\.){3}[0-9]{1,3}\:[0-9]{1,5}/';
    RegEx.InputString := Clipboard.AsText;
    if RegEx.Exec() then
    begin
      repeat
        memoProtocoll.Lines.Add(RegEx.Match[0] + ' - ' + RegEx.Match[1]);
      until not RegEx.ExecNext();
    end;
    RegEx.Free();
   end;

weiß jemand weiter? Ich bekomme keine Ausgabe!

Danke