DELPHI : GIF ANIMADO EN UNA VENTANA

Desde Delphi 2007 hasta los modernos Delphi (El último es Delphi 10.2 Tokio, recien publicado), se pueden utilizar gifs animados en los Form , cambiando la propiedad de TGifImage  Animate a True, en el ejemplo muestro como se hace.
Se pueden controlar también otros parámetros como : "AnimateLoop, AnimateSpeed"...etc.
Captura de pantalla:

También utilizo en el programa música XM, usando la libreria uFmod y para que haga algo
un botón que al pulsarlo chequea si estás o no
conectado a la red.
Las fuentes completas, programa compilado y
recursos estan en :
http://www.mediafire.com/file/a8f69tm1h21mbkm/gifAni.rar

[code]
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.
[/code]