TSockAddrIn = packed record
  case Integer of
    0: (sin_family: u_short;
        sin_port: u_short;
        sin_addr: TInAddr;
        sin_zero: array[0..7] of Char);
        sa_family: u_short;
        sa_data: array[0..13] of Char) end;
        TSockProto=packedrecordsp_family: u_short;
        sp_protocol: u_short;);
  end;