Не работает зацикливание gif [D10.1 Berlin]

var b: TBitmap;
    Gif: TGifImage;
begin
    Gif := TGifImage.Create;
    b:= TBitmap.Create;
    try
      b.Width:= Image1.Width;
      b.Height:= Image1.Height;
      b.Canvas.TextOut(10, 10, 'sdfgdsgshfy');
      Gif.Add(b);
      b.Canvas.TextOut(30, 30, 'jhfgdsdgdfhfhjgshfy');
      Gif.Add(b);
      Gif.Animate := True;
      Gif.AnimationSpeed:= 30;
      Gif.AnimateLoop := glContinously;
      Image1.Picture.Assign(Gif);
    finally
      gif.Free;
      b.Free;
    end;
end;

.....
uses
  Vcl.Imaging.GIFImg;
 
{$R *.dfm}
 
procedure TfMainForm.b1Click(Sender: TObject);
var
  gif:TGIFImage;
begin
  gif := TGIFImage.Create;
  gif.LoadFromFile('C:\TempProjects\_VCLProject\clocks.gif');
  gif.Animate := true;
  img1.Picture.Assign(gif);
  img1.Transparent := true;
  gif.Free;
end;