tColorSpec

type tColorSpec = record

  ColorIndex: SmallInt;

-1 terminates an array of ColorSpec

  Red: Word;

Only the bottom 4 bits recognized

  Green: Word;

Only the bottom 4 bits recognized

  Blue: Word;

Only the bottom 4 bits recognized

end;