insert por query

boa tarde a todos, estou tentando inserir valores por um componente TQuery quando clico em um botao mas ta dando um erro:

(Project DescInventario.exe raised exception class ENoResultSet with message "Error creating cursor handle". Process Stoped. Use Step or Run to continue)

os comandos que estou usando sao:

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

 spidinvent.ExecProc;

 quinsereproduto.Close;

 quinsereproduto.active:=false;

 quinsereproduto.sql.Clear;

 quinsereproduto.sql.Add('declare @maximo int');

 quinsereproduto.sql.Add('set @maximo = (select max(iditminventario) from titminventario)');

 quinsereproduto.sql.Add('insert titminventario');

 quinsereproduto.sql.Add('select '+''''+'1'+''''+' ,'+''''+'U.01.02.05-1207'+''''+' ,idprd ,'+''''+'1'+''''+' ,'+''''+'02'+''''+' ,sum(quantidade),NULL ,NULL ,'+''''+'1'+''''+' ,');

 quinsereproduto.sql.Add('NULL ,NULL ,NULL ,NULL ,NULL ,NULL ,min(id+@maximo) ,NULL');

 quinsereproduto.sql.Add('from invent010782');

 quinsereproduto.sql.Add('inner join tprdcodigo on invent010782.codigo = tprdcodigo.codigo');

 quinsereproduto.sql.Add('group by idprd');

 quinsereproduto.open;

 quinsereproduto.active:=true;

end;

sera que alguem pode me dar uma ajuda?

obrigado