How do you place numbers in a serialized, animated gif?

Questions
,
1

Within a For statement as I am making an animated gif, I have some numbers that I would like to print on the images. Is there a way to do that?

2

8673ball.gif

SetDirectory[NotebookDirectory[]];
im = Import["ExampleData/lena.tif"];
{x, y} = ImageDimensions[im];
data = Show[im, Graphics[Text[Style[ToString[#], Red, 50], {Round[x/2], Round[y/2]}]]] & /@ Range[1, 10];
Export["im.gif", data]