type
   Pnetent = ^netent;
   netent = record
        n_name : Pchar;
        n_aliases : ^Pchar;
        n_addrtype : longint;
        n_net : uint32_t;
     end;
   PPNetEnt = ^Pnetent; 


{ ---------------------------------------------------------------------
    Borland compatibility types
  ---------------------------------------------------------------------}

Type  
  TNetEnt = netent;


syntax highlighted by Code2HTML, v. 0.9.1