CSADDR_INFO = packed record LocalAddr: SOCKET_ADDRESS; RemoteAddr: SOCKET_ADDRESS; iProtocol: LongInt; iSocketType: LongInt; end;