TVerbInfo = packed record
  Verb: Smallint;
  Flags: Word;
end;

struct TVerbInfo {
  Smallint Verb;
  Word Flags;
};