TServEnt = packed record
  s_name: PChar;
  s_aliases: ^PChar;
  s_port: Smallint;
  s_proto: PChar;
  end;