Я пробовал так:
Image1 -> Picture -> Assign(GIF->Images->Frames[index]->Bitmap);
Нужный кадр вроде как получаю, но он весь корявый, битое изображение получается.
Через свойство Images может и можно, но засунуть в TImage не получается (с помощью Assign, по крайней мере - несоответствие типов).