INSERT/UPDATE/DELETE через TIBSQL

DELETE FROM supply_chains
WHERE supplier_tin = :supplierTin 
AND recipient_tin = :recipientTin 
AND lvl = :level
AND EXTRACT(MONTH FROM mon) = :month 
AND EXTRACT(YEAR FROM mon) = :year

IBSQL.ParamCheck := True;

  with DeleteChainItemSQL do begin
    ParamByName('recipientTin').Value := item.Recipient.TIN;
    ParamByName('supplierTin').Value := item.Supplier.TIN;
    ParamByName('level').Value := item.Level;
    month := MonthOf(item.Month);
    ParamByName('month').Value := MonthOf(item.Month);
    year := YearOf(item.Month);
    ParamByName('year').Value := YearOf(item.Month);
    Prepare;
    ExecQuery;
    Transaction.Commit; // <---
  end;