passando valor para tabela

boa noite fiz o seguinte codigo precisando que o valor digitado no campo txt_pro_desconto
fosse gravado no campo item_desconto, o qtd esta gravando no campo iten_qtd normal
iten_qtd esta na tabela com int e o item_desconto esta como double.

procedure TF_pdv.ProdutosAdd;
var PRO,QTD,DESC: Integer;
begin
pro := dm.sql_produtospro_id.Value;
qtd := StrToInt(txt_pro_qtd.Text);
desc := StrToInt(txt_pro_desconto.Text);
with dm.SQL_produtosAdd do
begin
close;
sql.Clear;
sql.Add('insert into listarpedidos');
sql.Add('(item_produto, iten_qtd, item_desconto)');
sql.Add('values (:produto, :qtd, :desc)');
ParamByName('produto').Value := PRO;
ParamByName('qtd').Value := QTD;
ParamByName('desc').Value := DESC;
ExecSQL;

dm.sql_listarpedidos.Close;
dm.sql_listarpedidos.Open;

end;
end;