TProtoEnt = packed record
  p_name: PChar;
  p_aliases: ^Pchar;
  p_proto: Smallint;
  end;