Delphi 2009 gifアニメーションメソッド

以前DelphiにGIFアニメーションを表示するには、サードパーティ製コンポーネントを使用する方法と、WebBrowserコンポーネントを使用する方法がありました.Delphi 2009では、内部でGIFがサポートされています(Delphi 2005およびDelphi 2006でサポートされている可能性がありますが、確認されていません).
GIFに関する関連クラスはTGIFImageで、GIFImgユニットでは、次のコードを見てフォームのGIFが動き出します.

uses GIFImg;
procedure TForm1.FormCreate(Sender: TObject);
begin
  //          TImage   ：Image1；
  Image1.Picture.LoadFromFile('C:/Example.gif');
  // AnimationSpeed       ，   ，    ；
  TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
  TGIFImage(Image1.Picture.Graphic).Animate := True;
end;