adoquery toplama işlemi hakkında ACİLLLLLLL

var 
  adet,satir,i:Integer; 
  toplam:Double; 
    begin 
   
    adoquery1.Close; 
        adoquery1.SQL.Clear; 
         adoquery1.SQL.Add('select * from bt_avans_formu'); 
              adoquery1.Open; 
   
      toplam:=0; 
      adet:=StrToInt(Format('%2d',[yenigrid(DBGrid1).RowCount-1]));//satır sayısı 
     adoquery1.first; 
   
    for i:=1 to adet do 
    begin 
    toplam:=toplam+DBGrid1.Fields[7].AsCurrency;//sonuca ekle 
    adoquery1.Next; 
   
  end; 
   
    edit1.Text:=FloatToStrF(toplam);