echec mise a jour base firebird avec ibupdate

Bonjour,

je voudrais savoir pourquoi delphi me renvoi une erreur "echec de mise a jour" (causé par la classe d'exception EIBClientError). Voici mon code :

with ibQueryProduits do begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM STATPRODUITS order by NoAgric, Annee');
   Active := True;
   First;
   if Locate('NoAgric', inttostr(NoSynthese), [loCaseInsensitive]) then begin
        IBUpdateSQLProduits.DeleteSQL.Clear;
        IBUpdateSQLProduits.DeleteSQL.Add('Delete from STATPRODUITS where NOAGRIC = ' + inttostr(NoSynthese) + ';');
        IBUpdateSQLProduits.ExecSQL(ukDelete);
        IBTransaction1.CommitRetaining;
   end;
end;

Mon ibupdate est bien rataché a mon ibquery. L'erreur se fait sur l'ExecSQL. Qu'est ce que je fait de mal? Merci de me guider je comprends pas mon soucis

Merci d'avance