Запрос по вычислению суммы заказа

procedure TForm2.Button18Click(Sender: TObject);
begin
 DataModule1.ADOQuery5.FieldByName('Цена').AsString:=DBEdit9.Text;
 DataModule1.ADOQuery5.FieldByName('Кол-во').AsString:=DBEdit4.Text;
 DataModule1.ADOQuery5.FieldByName('Итог').AsString:= IntToStr(StrToInt(DBEdit9.Text)*StrToInt(DBEdit4.Text));
 
end;

procedure TForm4.Button22Click(Sender: TObject);
begin
  if DataModule1.ADOQuery6.Modified then
  DataModule1.ADOQuery6.Post;
 
  {Заносим Итог в журнал заказов}
   DataModule1.ADOQuery7.SQL.Clear;
  DataModule1.ADOQuery7.SQL.Add('Update [Журнал заказов] Set Итог=:Param1, [Дата]=:Param3  Where [Номер заказа]=:Param2');
  DataModule1.ADOQuery7.Parameters.ParamByName('Param1').Value :=PayAmount;
  DataModule1.ADOQuery7.Parameters.ParamByName('Param2').Value :=Form4.DBEdit15.Text;
  DataModule1.ADOQuery7.Parameters.ParamByName('Param3').Value :=Now{};
  DataModule1.ADOQuery7.ExecSQL;
  {Заново переоткрываем журнал заказов после обновления поля Итог в таблице Журнал заказов}
 
   DataModule1.ADOQuery7.SQL.Clear;
  DataModule1.ADOQuery7.SQL.Add('Select * From [Журнал заказов]');
  DataModule1.ADOQuery7.Open;
 
    DataModule1.ADOQuery6.Refresh;
 
end

 DataModule1.ADOQuery7.Parameters.ParamByName('Param3').Value :=Now();