Ajuda em Trigger

Utilizo DBExpress e Firebird 1.0 - Delphi 7.
Gostaria de uma ajuda: preciso fazer uma trigger que, quando eu gravar na tabela VendaDetalhe (Before Post), Pegue O produto dessa VendaDetalhe (campo Produto - tipo Integer), localize-o no cadastro de produtos (chave Codigo, tipo Integer), edite a tabela Produtos e diminua o valor contido no campo Quantidade da tabela VendaDetalhe do campo Saldo da tabela Produtos. Alguém poderia me ajudar com uma luz? Obrigadíssimo.