How to use TGIFImage in BCB2007

I provide two kinds of methods to implement.

1. Image1->Picture->LoadFromFile("test.gif");
TGIFImage * pGif = dynamic_cast (Image1->Picture->Graphic);
if( pGif != NULL )

pGif ->Animate = true;

2. TGIFImage * pGif = new TGIFImage;

pGif ->LoadFromFile("test.gif");

pGif ->Animate = true;

TPaintBox *paintbox1 = new TPaintBox(Form1);

paintbox1->parent = Form1;

paintbox1->Draw(0,0, pGif );