SOCKET_ADDRESS_LIST = packed record
  iAddressCount: Integer;
  Address: Array [0..0] of SOCKET_ADDRESS;
  end;