Introduction - If you have any usage issues, please Google them yourself
Load GIF
TGIFImage*gif=new TGIFImage()
TBitmap*bmp=new TBitmap()
gif->LoadFromFile("Demo.gif")
Image1->Picture->Assign(gif)
TGIFImageList*list=gif->Images
int count=list->Count
for (int i = 0 i < count i++)
{
bmp->Assign(list->Items[i])
bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")
}