Estou tentando exibir um GIF animado em um formulário Firemonkey HD usando o TImage, mas não vejo nenhum método para animação.

Usar Vcl.Imaging.gifImg não é uma opção porque os tipos são diferentes.

Alguém pode sugerir uma maneira de resolver este problema ou, provavelmente, componente para animar imagens GIF sob Firemonkey?

A única maneira que encontro por agora é:

crie uma instância TGIFImage e carregue a imagem GIF

loop através de gif.images:

uma. salvar a imagem atual no stream

b. Image1.bitmap.loadFromStream [Image1 é FMX: TImage]

Existe alguma solução mais inteligente?