¿Como poner un Gif animado en Rad Studio XE?

[Mav]

....Delphi2007...en\\source\ GIFImg.pas y por lo tanto tambien en \\lib\GIFImg.dcu....
lo que se "une" a tu ejecutable: No hay animación.:

Código Delphi [-]
........................
//                      Global variables
//
////////////////////////////////////////////////////////////////////////////////
// GIF Clipboard format identifier for use by LoadFromClipboardFormat and
// SaveToClipboardFormat.
// Set in Initialization section.
var
  CF_GIF: WORD = 0;


////////////////////////////////////////////////////////////////////////////////
//
//                      Library defaults
//
////////////////////////////////////////////////////////////////////////////////
var
  //: Default options for TGIFImage.Draw
  GIFImageDefaultTransparent: boolean = True;
  GIFImageDefaultAnimate: boolean = False;//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< True =animado, False = no animado
  GIFImageDefaultAnimationLoop: TGIFAnimationLoop = glEnabled;
  GIFImageDefaultDithering: TGIFDithering = gdDisabled;
.......................

...en DelphiXE5:
...\\source\VCL\Vcl.Imaging.GIFImg.pas

Código Delphi [-]
     ...........
     .........
     /                      Global variables
//
////////////////////////////////////////////////////////////////////////////////
// GIF Clipboard format identifier for use by LoadFromClipboardFormat and
// SaveToClipboardFormat.
// Set in Initialization section.
var
  CF_GIF: WORD = 0;


////////////////////////////////////////////////////////////////////////////////
//
//                      Library defaults
//
////////////////////////////////////////////////////////////////////////////////
var
  //: Default options for TGIFImage.Draw
  GIFImageDefaultTransparent: boolean = True;
  GIFImageDefaultAnimate: boolean = False;//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  GIFImageDefaultAnimationLoop: TGIFAnimationLoop = glEnabled;
  GIFImageDefaultDithering: TGIFDithering = gdDisabled;

  //: Default color reduction methods for bitmap import.
  // These are the slowest settings, but also the ones that gives the
  // best result (in most cases).
  GIFImageDefaultColorReduction: TColorReduction = rmQuantize;
  GIFImageDefaultColorReductionBits: integer = 8; // Range 3 - 8
  GIFImageDefaultDitherMode: TDitherMode = dmFloydSteinberg;

Saludos

[Mav]

.....

Código Delphi [-]
 // Transparent property is declared in TGraphic.
    // property Transparent: boolean read GetTransparent write SetTransparent;
    property Animate: boolean read FAnimate write SetAnimate;
    property AnimateLoop: TGIFAnimationLoop read FAnimateLoop write SetAnimateLoop;

...otro fragmento de GIFIMg.pas, cambio la property Animate a true, para que se reproduzca la animacion, es lo que hago
en la primera respuesta a este tema.
Saludos