TInAddr = packed record
  case integer of
    0: (S_un_b: SunB;);
    1: (S_un_w: SunW;);
    2: (S_addr: u_long;);
  end;