[NumLock]

для Delphi 7 компонент TGdipGIF:
http://narod.ru/disk/44227306001.997...ipGIF.rar.html
пример:
http://narod.ru/disk/44227256001.35f....Test.rar.html

Код:

  public
    property FrameCount: Integer read GetFrameCount;
    property FrameDelay: TArrayOfFrameDelay read FFrameDelay;
    procedure LoadFromStream(Stream: TStream);
    procedure LoadFromFile(const Filename: String);
    procedure LoadFromResource(ResName: String);
    function PictureWidth: Integer;
    function PictureHeight: Integer;
  published
    property AutoSize;
    property Align;
    property Anchors;
    property Color;
    property Visible;
    property Active: Boolean read FActive write SetActive default False;
    property BevelInner: TBevelCut read FBevelInner write SetBevelInner default bvRaised;
    property BevelOuter: TBevelCut read FBevelOuter write SetBevelOuter default bvNone;
    property Center: Boolean read FCenter write SetCenter default False;
    property Stretch: Boolean read FStretch write SetStretch default False;