[Mav]

Hace tiempo hice esto para mostrar como utilizar gifs animados desde Delphi2007 hasta nuestros dias.
Se me había olvidado, limpiando el disco duro lo encontré, así que aqui está, espero que os guste:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.GIFImg, Vcl.ExtCtrls,Winapi.WinInet,
  Vcl.StdCtrls, uFMod;


type
  TForm1 = class(TForm)
     Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Edit1: TEdit;
     procedure FormCreate(Sender:Tobject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$I Music.pas}


 procedure TForm1.Button1Click(Sender: TObject);
      var
      Types : Integer;

begin
    Types := INTERNET_CONNECTION_MODEM +
            INTERNET_CONNECTION_LAN +
            INTERNET_CONNECTION_PROXY;
     if InternetGetConnectedState(@types, 0) then
     Edit1.Text := 'Estás conectado a la red'
     else
     Edit1.Text := ' No estás conectado ';

end;

procedure TForm1.FormCreate(Sender:Tobject);
   begin
    (Image1.Picture.Graphic as TGifImage).Animate:= True;
    (Image2.Picture.Graphic as TGifImage).Animate:= True;
    (Image3.Picture.Graphic as TGifImage).Animate:= True;
    (Image4.Picture.Graphic as TGifImage).Animate:= True;
     uFMOD_PlaySong(@xm, Length(xm), XM_MEMORY);
   end;
end.

También le pongo algo de música, el programa compilado, recursos musica y demás, está aquí :http://www.mediafire.com/download/a8...bkm/gifAni.rar
Saludos