Fórum Transferir dados do grids para o BD #387455

Pessoal estou tentando fazer uam transferencia de dados acumulador para um outro tabela mas estou com problemas...

// lança os produtos no grid de consumo da mesa
  frmmodulo.st_consumo.Close;
  frmmodulo.st_consumo.ParamByName('cod_mesa').Value      := StrToInt(frmPrincipal.lb_mesa.Caption);
  frmmodulo.st_consumo.ParamByName('cod_produto').Value  := gridpesquisa.cell[1,i].asstring;
  frmmodulo.st_consumo.ParamByName('qtde').Value               := gridpesquisa.cell[3,i].asstring;
  frmmodulo.st_consumo.ParamByName('unitario').Value          := gridpesquisa.cell[4,i].asfloat;
  frmmodulo.st_consumo.ParamByName('total').Value               := gridpesquisa.cell[5,i].asfloat;
  frmmodulo.st_consumo.Prepare;
  frmmodulo.st_consumo.Execute;

esse codigo acima é o codigo q tenho para receber as informções eu tenho nesse gridpesquisa varios produtos so que quando mando lançar no banco ele so m joga o primeiro registro queria q ele lançace todos os produtos q eu pesquizei quando mando finalizar a venda...

Dessa forma ai ele so grava a primeira venda as outras nao grava....

esse gridpesquisa é um nextgrid