Interactive Visualization of Circles in a Delaunay Triangulation

pts=RandomReal[{-1,1},{20,2}];
ℛ=DelaunayMesh[pts];
delaunayGraphic=HighlightMesh[ℛ,{Style[0,Blue,PointSize[Medium]],Style[1,Purple],Style[2,LightCyan]}];
listOfIndexes=First/@MeshCells[ℛ,2];
listOfTriPts=pts[[#]]& /@listOfIndexes;
listOfCircles=Circumsphere/@listOfTriPts;
Manipulate[Show[delaunayGraphic,Graphics[{LightOrange,Polygon[listOfTriPts[[i]]],Orange,listOfCircles[[i]]}],PlotRange->{{-2,2},{-2,2}}],{i,1,Length[listOfTriPts],1}]