Delphi Загрузка и отображение рисунка GIF в компоненте TImage

[Lomanu4]

uses GIFimg;
//...
var GIFImage:TGifImage;
begin
if OpenPictureDialog1.Execute then
begin
GIFImage:= TGifImage.Create;
GIFImage.LoadFromFile(OpenPictureDialog1.FileName);
GIFImage.BackgroundColor:=clWhite; //белый фон
GIFImage.AnimateLoop:=glEnabled; //замкнутый цикл анимации
GIFImage.Animate:=True; //активируем анимацию
Image1.Picture.Assign(GIFImage);
GIFImage.Free;
end;
end;
Класс  TGifImage  позволяет программисту легко управлять фоном рисунка. Для этого надо
передать индекс подходящего цвета в палитре или явное значение фонового цвета в свойства:
property BackgroundColorIndex: BYTE;
property BackgroundColor: TColor;