+function ResolveIP(SockAddr: PSockAddr): ansistring;
+var
+ AddrInfo: TAddrInfo;
+begin
+ AddrInfo.ai_addr:= SockAddr;
+
+ if SockAddr^.sa_family = AF_INET then
+ AddrInfo.ai_addrlen:= SizeOf(TSockAddr)
+ else if SockAddr^.sa_family = AF_INET6 then
+ AddrInfo.ai_addrlen:= SizeOf(TSockAddr6)
+ else
+ AddrInfo.ai_addrlen:= 0;
+
+ ResolveIP:= ResolveIP(PAddrInfo(@AddrInfo));
+end;
+