This is record TWordRec.

public TWordRec = packed record
  case Integer of
    0: (WordValue: Word;);
    1: (High: Byte;
        Low: Byte;);
  end;

ImagingUtility (at line 63)