Попробуй так:
procedure TForm1.Button1Click(Sender: TObject);
var summa : integer;
begin
summa := 0;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
summa := summa + ADOQuery1Vich_Pole.Value;
ADOQuery1.Next;
end;
Edit1.Text := intTostr(summa);
end;
|