pascalidentty

type pascalidentty = (

  pid_invalid = - 1,

  pid_and = 0,

  pid_array,

  pid_as,

  pid_asm,

  pid_begin,

  pid_case,

  pid_class,

  pid_const,

  pid_constructor,

  pid_destructor,

  pid_dispinterface,

  pid_div,

  pid_do,

  pid_downto,

  pid_else,

  pid_end,

  pid_except,

  pid_exports,

  pid_file,

  pid_finalization,

  pid_finally,

  pid_for,

  pid_function,

  pid_goto,

  pid_if,

  pid_implementation,

  pid_in,

  pid_initialization,

  pid_inline,

  pid_forward,

  pid_interface,

  pid_is,

  pid_label,

  pid_library,

  pid_method,

  pid_mod,

  pid_nil,

  pid_not,

  pid_object,

  pid_of,

  pid_or,

  pid_out,

  pid_overload,

  pid_packed,

  pid_procedure,

  pid_program,

  pid_property,

  pid_raise,

  pid_record,

  pid_repeat,

  pid_resourcestring,

  pid_set,

  pid_shl,

  pid_shr,

  pid_then,

  pid_threadvar,

  pid_to,

  pid_try,

  pid_type,

  pid_unit,

  pid_until,

  pid_uses,

  pid_var,

  pid_while,

  pid_with,

  pid_xor,

  pid_abstract,

  pid_inherited,

  pid_override,

  pid_reintroduce,

  pid_virtual,

  pid_private,

  pid_protected,

  pid_public,

  pid_published,

  pid_automated,

  pid_read,

  pid_write,

  pid_stored,

  pid_default,

  pid_nodefault

);