Julia Set animation

anim = {};
Do[
 m = 100;
 Fract[z_] :=
  Module[{c = t - 0.2321 I},
   Length[NestWhileList[#^2 + c &, z, Abs[#] < 10 &, 1, m]]];
 Colour[n_, z_] := rainbow[n/m];
 \[Delta] = 0.01;
 range = Table[x + I y, {y, -2, 2, \[Delta]}, {x, -2, 2, \[Delta]}];
 data = Map[Colour[Fract[#], #] &, range, {2}];
 img = Image[data];
 anim = Append[anim, img];
 ,
 {t, Table[i, {i, -0.9, -0.8, 0.01}]}
 ]