anchor.diff:  Procedure GIFLoader.Load(Source:TERRAStream);
   var
     GIFHeader:TERRA_GIF.GIFHeader;
  -  GIFBlockID:AnsiChar;
  +  GIFBlockID:Byte;
     GIFImageDescriptor:TERRA_GIF.GIFImageDescriptor;
     GIFExtensionBlock:TERRA_GIF.GIFExtensionBlock;
     GIFGraphicControlExtension:TERRA_GIF.GIFGraphicControlExtension;
  
positive.code:           Inc(Frame);
          End;
  
      '!':Begin
            Source.Read(@GIFExtensionBlock, SizeOf(GIFExtensionBlock));
  
            Case GIFExtensionBlock.FunctionCode Of
  
negative.code:   Src, Dest:PColorRGBA;
    {$ENDIF}
  Begin
  (*  If Image.CurrentFrame<=0 Then
    Begin
      Image.Copy(FrameBuffer);
      Exit;
    End;*)
  
    {MyImage.SetCurrentFrame(Pred(MyImage.CurrentFrame));
    PrevFrame := MyImage.Pixels;
  