Expresión regular para validar dirección IP
 

Hola, estoy utilizando las funciones de la librería RegExp Studio para realizar validaciones mediante expresiones regulares, tengo esta expresión regular para validar una dirección IP:

Código Delphi [-]
function TForm1.IPIncorrecta(Cadena: string): boolean;
var
  ExpresionRegular: TRegExpr;
begin
  Result := True;
  ExpresionRegular := TRegExpr.Create;
  ExpresionRegular.Expression := '^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){3}$';
  if ExpresionRegular.Exec(Cadena) then
    Result := False;
end;

pero con ciertos valores, como por ejemplo, 192.168.0.11 me genera la siguiente excepción:

Project raised exception class 'ERegExpr' with message:
TRegExpr(exec): Loop Without LoopEntry !

He revisado mi expresión regular y parece que todo está correcto. ¿Qué es lo que ocurre?

Saludos.

Al final he hecho esto y funciona:

Código Delphi [-]
function IPIncorrecta(Cadena: string): boolean;
var
  ExpresionRegular: TRegExpr;
begin
  Result := True;
  ExpresionRegular := TRegExpr.Create;
  try
    ExpresionRegular.Expression := '^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){2}(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]))$';
    if ExpresionRegular.Exec(Cadena) then
      Result := False;
  finally
    ExpresionRegular.Free;
  end;
end;

No se por qué la anterior no funciona correctamente.

Saludos.