anchor.diff:      For I:=0 To Pred(K) Do
       Begin
         Source.Read(@rgb,3);
  -      {$IFDEF RGB}
         GlobalPalette[i].R := RGB.Red;
         GlobalPalette[i].G := RGB.Green;
         GlobalPalette[i].B := RGB.Blue;
  -      {$ENDIF}
  -      {$IFDEF BGR}
  -      GlobalPalette[i].B := RGB.Red;
  -      GlobalPalette[i].G := RGB.Green;
  -      GlobalPalette[i].R := RGB.Blue;
  -      {$ENDIF}
         GlobalPalette[i].A := 255;
       End;
   
  
positive.code:   End;
  
    Repeat
      Source.Read(@GIFBlockID,1);
      Case GIFBlockID Of
      ';':Begin
          End;
  
      ',':Begin //image separator
            Palette := @GlobalPalette;
            Source.Read(@GIFImageDescriptor,SizeOf(GIFImageDescriptor));
            If (GIFImageDescriptor.Flags And $80<>0) Then
  
negative.code: Procedure GIFLoader.Load(Source:TERRAStream);
  var
    GIFHeader:TERRA_GIF.GIFHeader;
    GIFBlockID:Byte;
    GIFImageDescriptor:TERRA_GIF.GIFImageDescriptor;
    GIFExtensionBlock:TERRA_GIF.GIFExtensionBlock;
    GIFGraphicControlExtension:TERRA_GIF.GIFGraphicControlExtension;
  