GIF анимация

unit Unit1;
 
interface
 
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, GifImg, ExtCtrls;
 
type
    TForm1 = class(TForm)
      Image1: TImage;
      Timer1: TTimer;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
    private
      Gif: TGifImage;
    public
      { Public declarations }
    end;
 
var
    Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    Gif := TGifImage.Create;
    Gif.LoadFromFile('c:\01_A.gif');
    Gif.Animate := True;
    Gif.AnimateLoop := glEnabled;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Image1.Picture.Assign(Gif)
end;
 
end.

uses
  GIFImg;

GIFImageDefaultAnimate := True;
Image1.Picture.LoadFromFile('d:\01_A.gif');

program Project1;
 
uses
  GifImg,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  GIFImageDefaultAnimate := True;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.