Check incorrect entry of IP

Mit dieser Funktion kann man IP-Adressen auf ihre Richtigkeit überprüfen, falls der User keine mögliche IP-Adresse durch eine Falscheingabe angibt.

function IsWrongIP(Ip: string): Boolean;
const
  Z = ['0'..'9', '.'];
var
  I, J, P: Integer;
  W: string;
begin
  Result := False;
  if (Length(Ip) > 15) or (Ip[1] = '.') then Exit;
  I := 1;
  J := 0;
  P := 0; 
  W := '';
  repeat
    if (Ip[I] in Z) and (J < 4) then
    begin
      if Ip[I] = '.' then
      begin
        Inc(P);
        J := 0;
        try
          StrToInt(Ip[I + 1]);
        except
          Exit;
        end;
        W := '';
      end 
      else 
      begin
        W := W + Ip[I];
        if (StrToInt(W) > 255) or (Length(W) > 3) then Exit;
        Inc(J);
      end;
    end
    else 
      Exit;
    Inc(I);
  until I > Length(Ip);
  if P < 3 then Exit;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsWrongIP('192.168.0.1') = true then
  begin
  ShowMessage('Ip ist right');
  end else begin
  ShowMessage('Ip ist wrong');
  end;
end;