Components for Delphi and C++ Builder.

  TForm1 = class(TForm)
...
  private
  public
    Bitmaps: TList<TBitmap>;
    FrameIndex: Integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  GIFImage: TGIFImage;
//  BackgroundColor: TColor;
  I: Integer;
begin
  GIFImage := Image1.Picture.Graphic as TGIFImage;
  GIFImage.Animate := True;
//  BackgroundColor := GIFImage.BackgroundColor;

  for I := 0 to GIFImage.Images.Count - 1 do
  begin
    Bitmaps.Add(GIFImage.Images[I].Bitmap);
  end;

  Timer1.Interval := GIFImage.AnimationSpeed;
  Timer1.Enabled := True;
  DBGridEh1.Invalidate;
end;

procedure TForm1.DBGridEh1Columns0AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
  var Params: TColCellParamsEh; var Processed: Boolean);
var
  DestRect: TRect;
  Bitmap: TBitmap;
begin
  Sender.DrawColumnDataCellBackground(Cell, AreaCell, Column, ARect, Params);
  if MemTableEh1.FieldByName('Name').AsString = 'Bolivia' then
  begin
    if Bitmaps.Count > 0 then
    begin
      Bitmap := Bitmaps[FrameIndex];
      DestRect := GetDestRectForImagePlacement(CreateSize(Bitmap.Width, Bitmap.Height), ARect, TImagePlacementEh.ipFitEh);
      Sender.Canvas.StretchDraw(DestRect, Bitmap);
    end;
  end;
  Processed := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(FrameIndex);
  if FrameIndex >= Bitmaps.Count then
    FrameIndex := 0;
  TDBGridEhCrack(DBGridEh1).InvalidateCol(1);
end;