getmem(output.ai_addr,sizeof(tlinetsockaddr4));\r
       if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;\r
       output.ai_addr.InAddr.addr := longint(addrlist^^);\r
-      inc(integer(addrlist),4);\r
+      inc(taddrint(addrlist),4);\r
       output.ai_flags := 0;\r
       output.ai_family := af_inet;\r
       output.ai_socktype := 0;\r