Como exibir GIF animado no Delphi

Como exibir um GIF animado no Delphi 

Esta dica é de como exibir um GIF no Delphi e ativar a sua animação

Como exibir um GIF no TImage

O TImage do Delphi é capaz de exibir um GIF, mas tem um pequeno truque.
Primeiro adicione o seu TImage ao formulário.
Agora se você tentar carregar um GIF irá ocorrer um erro, para o TImage suportar o GIF adicione a unit GIFImg a clausula uses do formulário. Simples assim :D

Exibir a animação do GIF

Agora você poderá carregar o GIF no TImage sem problemas, no entanto esta será estático.
Para ativar a animação utilize o seguinte código

TGIFImage(image1.Picture.Graphic).Animate := True;

Muito bem agora o seu GIF estará animado com animação sendo exibida em loop

Como evitar o Flicker do GIF (Imagem piscando)

Provavelmente ao exibir a imagem esta ficará piscando.
Para resolver este problema você deve setar as seguintes propriedades:

image1.Proportional := False;
image1.Stretch      := True;

Muito bem, com estas dicas será fácil colocar um GIF animado no seu programa. Até a próxima