Как распарсить IP адрес регулярным выражением

{ Внешний IP адрес по материалам видео
https://www.youtube.com/watch?v=QfRWhBdLrUA }
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s, ip : String;
begin
 
s:= IDHTTP1.GET('http://checkip.dyndns.com/');
  For i:=1 To Length(s) Do
   begin
    If s[i] In ['0'..'9','.'] Then
     ip:=ip+s[i];
   end;
  Form1.Caption:=ip; //сам адрес
End;

IDHTTP1.GET('http://checkip.dyndns.com/');

Uses . . . ,RegularExpressions;
 
. . .
 
procedure TForm1.Button6Click(Sender: TObject);
var
  RegEx: TRegEx;
  s, Rv : String;
  M: TMatchCollection;
begin
 s:= IDHTTP1.GET('http://checkip.dyndns.com/');
 Rv:= '((25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9]?[0-9])\.){3}(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]?)';
 RegEx := TRegEx.Create(Rv);
 M := RegEx.Matches(s, Rv);
 if RegEx.IsMatch(s, Rv)  then
    Form1.Caption:= M.Item[0].Value
    else
    Form1.Caption:= 'IP адрес не найден';
end;

function Pars(T_, Text, _T: string): string; 
 var a, b:integer;
 begin
Result := '';
if (T_='') or (Text='') or (_T='') then Exit;
a:=Pos(T_, Text);
if a=0 then Exit else a:=a+Length(T_);
Text:=Copy(Text, a, Length(Text)-a+1);
b:=Pos(_T, Text);
if b>0 then Result:=Copy(Text, 1, b - 1);
 end;
 
procedure ButtonClick(sender:Tobject);
begin
var ip: string:= pars('Current IP Address:',string,'</body>');
end;

function ParseIpV4(const s: string; var ip : cardinal) : boolean;
var
  a : TArray<string>;
  i, n : integer;
  c : cardinal;
  b: array [0..3] of bytes absolute c;
begin
  result := false;
  a := s.split(['.']);
  if (length(a) <> 4) then
    exit;
 
  for i:=0 to 3 do
  begin
    if not tryStrToInt(a[i], n) then
      exit;
    if (n < 0) or (n > 255) then
      exit;
    b[3 - i] := n;
  end;
  ip := c;
  result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: String; ip: Cardinal;
begin
  s:='cbcnbcnb192.168.1.254kkkkkk';
  ip:=1921681254;
 if ParseIpV4(s, ip) Then
  Showmessage('IP') else  Showmessage('no IP');
end;