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