из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очереди Для этих программок нужен всеми любимый RX Lib !!!

procedure TForm1.Button4Click(Sender: TObject);
var
 i, a: integer;
 bm: TBItmap;
begin
 a := 0;
 bm := TBItmap.Create;
 bm.Height := RxGIFAnimator1.Height;
 bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width;
 for i := 0 to RxGIFAnimator1.Image.Count - 1 do
 begin
 RxGIFAnimator1.FrameIndex := i;
 bm.Canvas.Draw(a, 0, RxGIFAnimator1.Image.Frames[i].Bitmap);
 a := a + RxGIFAnimator1.Height;
 end;
 //form1.Canvas.Draw(0,0,bm);
 bm.SaveToFile(Edit1.Text + '.bmp');
 bm.free;
end;