repeat
   r :=power(-1,i);
   r1:=(2*i)+1;
   arco:=arco+(r)/(r1);
  ...
  ...
   r :=power(-1,(i+7));
   r1:=(2*(i+7))+1;
   arco:=arco+(r)/(r1);
   inc(i,8);
 until i>=24000000;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 

Const   //сдесь определяем Ваш цвет. Так же можно использовать 
        //цвета по умолчанию. 
  clPaleGreen = TColor($CCFFCC); 
  clPaleRed =   TColor($CCCCFF); 

begin 

//Если ячейка получает фокус, то нам надо закрасить её другими цветами 
if (gdFocused in State) then begin     
   StringGrid1.Canvas.Brush.Color := clBlack; 
   StringGrid1.Canvas.Font.Color := clWhite; 
end 
else  //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным 

   if ACol = 2   //Вторая колонка будет зелёной , другие - ячейки красными 
    then StringGrid1.Canvas.Brush.color := clPaleGreen 
    else StringGrid1.canvas.brush.Color := clPaleRed; 

//Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column 
//Естевственно это завит от того, есть у Вас title-Row/Columns или нет. 

If (ACol > 0) and (ARow>0) then 
  begin 
      //Закрашиваем бэкграунд 
    StringGrid1.canvas.fillRect(Rect); 

      //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д.. 
    StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]); 
  end; 
end; 

var
  frm: Tfrm;
  x,y:real;
implementation

{$R *.dfm}

procedure Tfrm.FormPaint(Sender: TObject);
var
 vx,vy,we:integer;
 t,h:real;
begin
  vx:=2;
  vy:=3;
  x:=100;
  y:=50;
  t:=0;
  h:=0.01;
  we:=10;
  paintbox.Parent.DoubleBuffered:=true;
  paintbox.canvas.Brush.Color:=clwhite;
  paintbox.Canvas.Ellipse(-1000,-1000,1000,1000);
 repeat
  x:=x+vx*t;
  y:=y+vy*t;
  if (x<=0) or (x>=paintbox.Width-we) then vx:=-vx;
  if (y<=0) or (y>=paintbox.Height-we)  then vy:=-vy;
  t:=t*h;
   paintbox.canvas.Brush.Color:=clwhite;
   paintbox.Canvas.Ellipse(-1000,-1000,1000,1000);
   paintbox.canvas.Brush.Color:=clred;
  paintbox.Canvas.Ellipse(round(x),round(y),round(x+we),round(y+we));
  sleep(50);
  t:=t+1;
 until  t=1000;
end;

end.

{Запрос ip по DNS}
WSocket1.DnsLookup(Reversip+DNSBL[i]);

... какой параметр проверять на то что поиск закончен??

{считывание  первого адреса}
AnsBL:=WSocket1.DnsResultList[1];