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

procedure TForm4.DBGrid9CellClick(Column: TColumn);
Var i: Integer; //Номер заказа
JCODE : Integer; //Переменная для временного хранения Журнал.КодЖурнала
begin
 
 
 //Получаем сотрудника из DBGrid9
 DBLookupComboBox2.KeyValue:=DBGrid9.DataSource.DataSet.FieldByName('КодСотрудника').AsInteger;
 //Получаем клиента из DBGrid9
 DBLookupComboBox3.KeyValue:=DBGrid9.DataSource.DataSet.FieldByName('КодКлиента').AsString;
 // Получаем столик из DBGrid9
 DBLookupComboBox4.KeyValue:=DBGrid9.DataSource.DataSet.FieldByName('КодСтолика').AsString;
 //DBGrid9.DataSource1.DataSet.Fields.Fields[1].Value;
 
   DataModule1.ADOQJSUMMA.SQL.Clear;
    DataModule1.ADOQJSUMMA.SQL.Text:='SELECT Журнал.КодЖурнала, Журнал.[Номер заказа], Журнал.Дата, Sum(Детализация.Стоимость) AS Итого FROM Журнал INNER JOIN (SELECT КодЖурнала, Количество*Цена AS Стоимость FROM Заказ'
    +' INNER JOIN Меню ON Заказ.КодМеню=Меню.КодМеню)  AS Детализация ON ((Журнал.КодЖурнала = Детализация.КодЖурнала) and (Журнал.КодЖурнала=:Param1))  GROUP BY Журнал.КодЖурнала, Журнал.[Номер заказа], Журнал.Дата';
 
   DataModule1.ADOQJSUMMA.Parameters.ParamByName('Param1').Value:=IntToStr(DBGrid9.DataSource.DataSet.FieldByName('КодЖурнала').AsInteger);
   DataModule1.ADOQJSUMMA.Open;
  // Form4.Caption:=DBGrid9.DataSource.DataSet.FieldValues['Итого'];
   Form4.Caption:=IntToStr(DataModule1.ADOQJSUMMA.FieldByName('Итого').AsInteger);
  // Выбираем из Заказа те аказы которые соответствуют выбранному в Журнале
  //Для этого получаем код журнала из DBGrid9 (Таблица Журнал)
 
JCODE:=DataModule1.ADOQuery7.FieldByName('КодЖурнала').AsInteger;
   Form4.Caption:=IntToStr(JCODE);
     DataModule1.ADOQuery6.SQL.Clear;
    DataModule1.ADOQuery6.SQL.Text:='SELECT Заказ.КодЗаказа, Заказ.КодЖурнала, Блюдо.Название, Меню.Цена, Заказ.Количество, [Цена]*[Количество] AS Стоимость '
+'FROM (Меню INNER JOIN Заказ ON Меню.КодМеню = Заказ.КодМеню) INNER JOIN Блюдо ON Меню.КодБлюда = Блюдо.КодБлюда WHERE Заказ.КодЖурнала=:Param1';
  DataModule1.ADOQuery6.Parameters.ParamByName('Param1').Value:=JCODE;
   DataModule1.ADOQuery6.Open;
end;