[dimon4iknik]

Код:

procedure TForm5.btn1Click(Sender: TObject);
begin
 qry1.Active:=False;
 qry1.SQL.Text:='INSERT INTO [Решение для первой смены] ( количество_диванов, Название_дивана, Наименование_товара, расход_товара_на_каркас, расход_товара_на_сборку, расход_за_день, смена )' +
 'SELECT :param2 AS количество_диванов, [Название дивана].Название_дивана, [Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, ' +
 '(([расход_товара_на_каркас]+[расход_товара_на_сборку])* количество_диванов ) AS расход_за_день, :param3 AS Смена FROM Смена, [Наименование товара] INNER JOIN ([Название дивана]' +
 ' INNER JOIN БД ON [Название дивана].Название_дивана = БД.Название_дивана) ON [Наименование товара].Наименование_товара = БД.Наименование_товара GROUP BY :param2, [Название дивана].Название_дивана,' +
 '[Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, [Смена] HAVING ((([Название дивана].Название_дивана) Like :param1));';
 qry1.Parameters.ParamByName('param1').Value:=dblkcbb1.Text;
 qry1.Parameters.ParamByName('param2').Value.StrToInt:=Edt1.Text;
 qry1.Parameters.ParamByName('param3').Value:=dblkcbb2.Text;
  qry1.ExecSQL;
end;

И вот какая ошибка...

И выделяет вот эту строку...

Код:

 qry1.Parameters.ParamByName('param2').Value.strtoint:=Edt1.Text;

подскажите в чем ошибка?