anchor.diff:    Src, Dest:PColorRGBA;
     {$ENDIF}
   Begin
  -  If Image.CurrentFrame<=0 Then
  +(*  If Image.CurrentFrame<=0 Then
     Begin
       Image.Copy(FrameBuffer);
       Exit;
  -  End;
  +  End;*)
   
     {MyImage.SetCurrentFrame(Pred(MyImage.CurrentFrame));
     PrevFrame := MyImage.Pixels;
  
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;
  