Hola de nuevo.
Estuve probando la aplicación que adjuntas y no se contradicen.
Por ejemplo con:
Obtenemos el mismo resultado que con:
Código Delphi
[-]
if IsIPBelongsToNet('122.137.0.115', '122.137.0.0/24') then
Label1.Caption:= 'La IP pertenece a la red'
else
Label1.Caption:='La IP no pertenece a la red';
if IsIPBelongsToNet('122.213.17.1', '122.0.0.0/8' ) then
Label2.Caption:= 'La IP pertenece a la red'
else
Label2.Caption:='La IP no pertenece a la red';
Saludos.