in_addr = record
    case integer of
      0: (S_un_b: SunB);
      1: (S_un_w: SunW);
      2: (S_addr: u_long);
  end;
这样定义,如何使用,这里是不是少个end(这里delphi安装包里带的源码,千万别说这里真少个)?