Если именно так код записан, то ошибки будут, он должен быть такой
Код:
procedure TForm1.ADOQuery1CalcFields(DataSet: TTovar);
begin
ADOQuery1.Sum.AsInteger:= ADOQuery1.Values.AsInteger * ADOQuery1.Count.AsInteger;
end;
но подозреваю, что это просто из-за невнимательного копипаста.
З.Ы. Что-то не нахожу у ADOQuery1 ни Sum, ни Values, ни Count. Что-то здесь не так, откуда эти свойства?