Gif и анимация в TImage

[btx]

Здравствуйте. (Задачка на Delphi)

Есть TImage и картинка формата Gif (Картинка имеет элементы анимации)

Нужно заставить TImage воспроизводить анимацию.

Сразу скажу, почему не использую TRxGifAnimater, потому что при RxGifAnimator.Free; Выгрузка происходит слишком долго. В моем приложени таких картинок используется более 250 штук... программа выгружалась с RxGifAnimator около минуты, а на слабых компьютерах и вовсе вешала ОС. Я использую TImage, выгрузка программы составила от 2-3 сек... сравнимая разница. Возможно, и заставить TImage осуществлять анимацию?

[Savant]

btx

Как насчёт того, чтобы распаковать GIF в TImageList и затем "прокручивать" кадры по таймеру (TTimer) ?