TGifZip

type TGifZip = record

  rID: PGifImageDescriptor;

  rCT: PGifColorTable;

  rPrefix: array [0..kGifCodeTableSize-1] of Integer;

  rSuffix: array [0..kGifCodeTableSize-1] of Integer;

  rCodeStack: array [0..kGifCodeTableSize-1] of Byte;

  rSP: Integer;

  rClearCode: Integer;

  rEndCode: Integer;

  rHighCode: Integer;

  rCurSize: Integer;

  rBitString: Integer;

  rBits: Integer;

  rCurSlot: Integer;

  rTopSlot: Integer;

  rMaxVal: Boolean;

  rCurX: Integer;

  rCurY: Integer;

  rCurPass: Integer;

  rFirstSlot: Integer;

  rNextSlot: Integer;

  rCount: Integer;

  rLast: Integer;

  rUnget: Boolean;

end;