TIconRec = packed record
  Width: Byte;
  Height: Byte;
  Colors: Word;
  Reserved1: Word;
  Reserved2: Word;
  DIBSize: Longint;
  DIBOffset: Longint;
end;

struct TIconRec {
  Byte Width;
  Byte Height;
  Word Colors;
  Word Reserved1;
  Word Reserved2;
  Longint DIBSize;
  Longint DIBOffset;
};