Calcul avec un DBGRID

Salut à tous
Je travail avec un DBGRId qui m'affiche un champ calculé. A partir de là, j'aimerais faire la somme de champ calculé sur au moins 3 lignes du DBGRID.
Possible?
Merci

procedure TForm2.suiButton6Click(Sender: TObject);
 var
  H,Q:double;
begin
TABLE1.Edit;
Q:=0;
Table2.First  ;
while not  Table2.Eof do
begin
Q:=table2.Fields[4].Value+Q;
table2.Next ;
 end;
 
FORM2.Table1Montant.Value:=(Q);  Label8.Caption:=FloatToStr(Q);
// edit1.Text:=FloatToStr(Q);
end;