Cancelamento de Vendas!!!

Estou tentando fazer um cancelamento de uma venda e consequentemente a reposição do estoque... criei este código, mas não funciona, gostaria de saber o porquê e qual seria uma possível solução!!! Alguém saberia??? Obrigado!!!

procedure TfrmVenda.BitBtn1Click(Sender: TObject). var prod: array[1..100] of Integer. int: integer. begin dmData.qryDetVenda.Close. dmData.qryDetVenda.SQL.Text:= 'Select * From TBL_DET_VENDA, TBL_VENDAS Where TBL_VENDAS.id_venda = TBL_DET_VENDA.id_venda'. dmData.qryDetVenda.Open. While not dmData.qryDetVenda.Eof do begin prod[int]:= dmData.qryDetVenda.FieldByName('id_produto').AsInteger. int:= int + 1. dmData.qryDetVenda.Next. end. int:= 0. While not int = 100 do begin dmData.qryEstoque.Close. dmData.qryEstoque.SQL.Text:= 'Select * From TBL_ESTOQUE Where id_produto =:prod'. dmData.qryEstoque.Parameters[0].Value:= prod[int]. dmData.qryEstoque.Open. dmData.qryEstoque.FieldByName('qtd_atual').AsInteger:= dmData.qryEstoque.FieldByName('qtd_atual').AsInteger + 1. int:= int + 1. end. dmData.qryDetVenda.Delete. dmData.qryVenda.Delete. end.