Массив картинок bmp сохранить в gif (2006-й Билдер)

#include <Vcl.Imaging.GIFImg.hpp>
#include <memory>
 
// создание gif-ки:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<Graphics::TBitmap> bmp(new Graphics::TBitmap);
    std::auto_ptr<TGIFImage> gif(new TGIFImage);
 
    bmp->LoadFromFile(ExtractFilePath(Application->ExeName) + "pic1.bmp");
    bmp->Transparent = true;
    gif->Add(bmp.get());
    bmp->LoadFromFile(ExtractFilePath(Application->ExeName) + "pic2.bmp"); // и так далее
    bmp->Transparent = true;
    gif->Add(bmp.get());
 
    TGIFAppExtNSLoop *loop = new TGIFAppExtNSLoop(gif->Images->Frames[0]);
    loop->Loops = 0;
    gif->AnimationSpeed = 10;
    gif->Pack();
    gif->SaveToFile(ExtractFilePath(Application->ExeName) + "animation.gif");
}
 
// просмотр:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Image1->Picture->LoadFromFile(ExtractFilePath(Application->ExeName) + "animation.gif");
    TGIFImage* pGif = dynamic_cast<TGIFImage*>(Image1->Picture->Graphic);
    if(pGif)
    {
        pGif->AnimationSpeed = 10; // 10% от нормальной скорости, можно регулировать скорость именно здесь
        pGif->AnimateLoop = glEnabled;
        pGif->Animate = true; // false для остановки
    }
}

ResultAnimationImages=new Graphics::TBitmap[bufi2+1-bufi1];

Graphics::TBitmap* ResultAnimationImages;

Graphics::TBitmap** ResultAnimationImages;
// -----
ResultAnimationImages=new Graphics::TBitmap*[bufi2+1-bufi1];

Graphics::TBitmap **ResultAnimationImages;

                ResultAnimationImages=new Graphics::TBitmap*[bufi2+1-bufi1];
                bufi4=0;
                while (bufi4<bufi2+1-bufi1)
                {
                    ResultAnimationImages[bufi4]=new Graphics::TBitmap;
                    ResultAnimationImages[bufi4]->Width=Image1->Width;
                    ResultAnimationImages[bufi4]->Height=Image1->Height;
                    bufi4++;
                }