TGIFGCERec = packed record
  BlockSize: byte;
  PackedFields: Byte;
  DelayTime: Word;
  TransparentColorIndex: Byte;
  Terminator: Byte;
end;

struct TGIFGCERec {
  byte BlockSize;
  Byte PackedFields;
  Word DelayTime;
  Byte TransparentColorIndex;
  Byte Terminator;
};