SOCKET_ADDRESS = packed record
  lpSockaddr: PSockAddr;
  iSockaddrLength: Integer;
  end;